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I .  PREFACE 


This  document  is  submitted  as  a  description  of  a 
thesis  project  performed  in  partial  fulfillment  for  the 
degree  of  Master  of  Science.  The  major  field  of  study 
was  computer  science  and  the  minor  field  was  architecture* 
It  is  the  intent  of  the  author  that  the  following 
thesis,  in  part,  serve  to  help  those  who  wish  to  design 
programs  which  would  interface  to  the  Architectural  De¬ 
sign  System. 
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II.  INTRODUCTION 

Two  and  one-half  years  ago  a  group  was  formed  at 
the  University  of  Utah  for  the  purpose  of  designing  and 
developing  a  three-dimensional  computer-aided  design  sys¬ 
tem.  This  group's  particular  attention  was  directed  to¬ 
ward  providing  a  computer-aided  architectural  design  sys¬ 
tem  although  the  underlying  strategy  of  the  complete  de¬ 
sign  system  was  to  provide  the  foundation  for  a  general 
purpose  design  system.  The  foundations  included  geo¬ 
metric  modeling  techniquec,  data  structuring  techniques, 
and  basic  graphics  routines.  A  user  interface  would  be 
added  to  this  core  to  accommodate  a  special  class  of  users 
The  goal,  then,  of  the  aforementioned  group  was  to  design 
the  core  design  system  and,  as  well,  to  design  an  arch¬ 
itectural  interface  to  this  system. 

As  a  result  of  analyzing  the  architectural  design 
process,  certain  decisions  were  made  concerning  the  break¬ 
down  of  such  a  process  relative  to  computer  implementation 
So  called  "object  systems"  and  "attribute  systems"  were 
defined.  Examples  of  object  systems  are  the  enclosure 
system,  dealing  with  the  process  of  defining  interior 
spaces,  and  the  structural  system,  dealing  with  the  struc¬ 
tural  components  needed  to  support  a  building.  The  attri¬ 
bute  systems  deal  with  the  attributes  of  the  components  us¬ 
ed  in  the  object  systems.  Examples  of  these  are  the  cost. 
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material  and  color  systems. 

Many  of  the  object  systems  relate  to  components  that, 
for  the  most  part,  are  added  to  a  building  after  such 
things  as  the  enclosure  and  structural  components  have  been 
described.  The  electrical  system  is  assumed  to,  primarily, 
be  such  a  system.  Thus,  the  proposed  electrical  system 
would  provide  for  the  addition  of  liqhting,  power  and  ser¬ 
vice  fixtures  and  electrical  wiring  to  a  very  basic  spatial 
description  of  a  building. 

From  a  computer  programming  standpoint,  the  electri¬ 
cal  system  has  to  communicate  with  the  core  design  system 
and  the  architectural  design  system  through  which  a  basic 
building  design  has  been  constructed  and  stored.  Inherent 
at  this  programming  interface  are  problems  of  what  data 
should  be  passed  between  the  electrical  and  architectural 
systems,  what  routings  should  be  provided  by  which  system 
for  display  and  data  storage,  and  even  more  basic  questions 
of  program  and  data  memory  requirements  and  compatibility. 
Basic  decisions  were  also  necessary  as  to  how  and  where 
electrical  fixture  data  was  to  be  arranged  on  the  tree 
structure  model  of  a  building. 

A  special  purpose  language  was  used  to  simplify  the 
job  of  formatting  textual  information  for  display,  handl¬ 
ing  user  interactions,  and  addressing  data  in  the  storage 
area. 


III. 


OBJECTIVES  AND  GOALS 
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What  is  proposed  is  an  electrical  design  system. 

Its  objective  is  to  provide  a  computer-aided  system  to  a 
designer  who  wishes  to  completely  describe  the  character¬ 
istics  of  the  electrical  system  of  a  building.  It  is 
intended  that  the  electrical  design  system  be  a  well  in¬ 
tegrated  part  of  a  larger  and  broader  architectural  de¬ 
sign  system.  Other  design  systems  dealing  with  such 
aspects  or  architectural  design  as  heating,  plumbing* 
structures,  esthetics,  and  so  on,  would  make  up  a.  cpmplete 
architectural  design  system. 

At  best,  a  stand  along  electrical  design  system  would 
probably  speed  up  the  process  of  placing,  moving,  and 
deleting  electrical  fixtures  on  a  building  plan.  Ir»  addit¬ 
ion  an  automatic  circuiting  procedure  could  be  very  help¬ 
ful.  However,  the  motivation  to  build  an  electrical  de-  , 
sign  system  comes  more  from  its  usefulness  when  used  in 
a  complete  architectural  design  system,  as  mentioned  a- 
bove.  In  this  context  the  more  crucial  problems  of  the  re¬ 
lationships  between  other  elements  of  the  building  design 
can  be  better  understood  ana,  hopefully,  eliminated.  In- 
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deed,  components  could  be  arranged  more  easily  to  affect, 
what  might  be  called,  "constructive  interference".  The 
electrical  wiring  could  be  integrated  into  the  structure, 
for  example. 
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Very  simply,  then,  the  goal  of  an  electrical  design 


system,  in  the  context  of  an  architectural  design  system, 
is  to  furnish  a  system  to  a  designer  that  will  enable  him 
to  completely  specify  the  electrical  system  of  a  build¬ 
ing.  This  includes  the  specification  of  a  set  of  attri¬ 
butes  to  desotibe  each  component.  Procedures  for  arrang¬ 
ing  components  in  the  computer  storage  of  the  building 
would  be  available.  Automatic  circuiting  and  lighting 
simualtion  features  would  also  be  desirable. 


IV.  DESIGN  SYSTEM  SPECIFICATION.; 
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The  electrical  design  system  is,  most  basically, 
intended  to  be  a  computer-graphics  system.  The  primary 
output  will  be  pictures  displayed  on  a  display  console. 

The  information  that  causes  the  console  to  produce  a 
picture  will  be  generated  in  a  computer  based  on  inputs 
supplied  by  the  user.  The  user  can  communicate  with  the 
computer  program  by  means  of  interaction  devices  located 
at  the  display  console.  These  devices  allow  him  to  issue 
commands  to  change  the  program  sequences,  enter  data,  and 
manipulate  picture  parts  displayed  on  the  screen.  For  now 
the  kinds  of  devices  needed  and  the  way  in  which  they  are 
used  will  not  be  expanded.  Rather,  these  items  will  be 
discussed  as  they  occur  in  the  development  of  the  concepts 
of  the  system.  The  concepts  mentioned  in  this  section 
describe  a  proposed  electrical  design  system  and  are  not 
totally  represented  by  a  computer  implementation. 

The  electrical  system  has  been  divided  into  three 
parts  according  to  three  classes  of  fixtures.  They  are 
lighting,  power,  and  service.  The  lighting  fixtures  supply 
electrically  generated  light.  Examples  of  these  are  the 
surface  incandescent  lamp  and  the  recessed  florescent  lamp. 
The  power  fixtures  are  used  to  dispense  electrical  power. 
An  explosion  proof  outlet  and  a  two-wire  convenience  out¬ 
let  are  examples  of  power  fixtures.  The  third  class  of 
fixtures,  service,  are  used  to  distribute  electrical 


power  throughout  a  building.  The  control  panel  and  the 
generator  are  power  fixtures. 

Traditionally,  whenever  an  electrical  fixture  is 
to  be  entered  into  the  design  of  a  building,  a  symbolic 
reference  to  that  fixture  is  indicated  on  the  plan  view 
drawing  of  the  building.  A  fixture  is  traditionally 
represented  by  a  small  graphic  symbol.  These  symbols  are, 
for  the  most  part,  either  a  circle,  a  rectangle,  a  tri¬ 
angle,  or  a  combination  of  two  of  the  above.  The  symbols 
are  frequently  coded  by  adding  alpha-numerics  to  the  sym¬ 
bol.  On  a  specification  sheet  the  special  coding  is  ex¬ 
plained  and,  as  well,  the  fixtures  are  actually  re¬ 

presented  by  the  symbols  are  specified.  In  addition, 
notes  and  other  cryptic  information  are  associated  with  a 
symbol  to  indicate  its  physical  location  in  the  z-direo- 
tion  and  for  other  special  circumstances. 

In  the  electrical  design  system  the  use  of  graphic 
symbols  to  represent  electrical  fixtures  will  also  be 
used.  A  unique  symbol  will  be  used  to  represent  a  class 
of  fixtures,  such  as  the  class  of  single  pole  switches. 

A  further  symbology  will  be  used  to  identify  a  class.  It 
is  a  4-character  name,  such  as  SNPL  for  single  pole  switch¬ 
es.  The  name  will  be  used  by  the  user  for  reference  to  a 
class  and  will  also  be  used  internally  for  storage  purposes. 

An  additional  2  characters  will  be  added  to  the  4- 
character  class  identifier  to  reference  particular  fixtures 
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within  a  class,  such  as  SNPL15. 

Por  display  purposes  all  fixtures  of  a  class  will  be 
represented  by  a  common  graphic  symbol.  However,  each 
fixture  will  be  referenced  by  a  unique  name  and  will  be 
described  by  a  unique  set  of  specifications.  The  specify 
ications  will  be  the  attributes  of  the  fixture.  Each  type 
of  fixture  will  have  associated  to  it  sufficient  and  neces¬ 
sary  attributes  to  specify  its  type.  These  will  vary  from 
class  to  class  and  even  within  a  class.  The  following  is 
an  example  of  the  attributes  used  to  describe  SNPL15: 


ATTRIBUTES  POR 
SNPL15 
VOLTAGE 
CURRENT 
MANUFACTURER 
TYPE 
MODEL 

MOUNTING  HEIGHT 

COLOR 

COST 


120  VOLTS 
30  AMPS 

GENERAL  ELECTRIC 

FLUSH 

#GE7031 

36 

RED 

$2.35 


The  attributes  are  self-explanatory  with  the  possible 
exception  of  two,  mounting  height  and  cost.  Mounting 
height  is  sometimes  referred  to  as  a  "use  constraint"  or, 
in  other  words,  a  constraint  affecting  the  use  of  the  item 
in  point.  In  this  case  the  mounting  height  of  the  fix¬ 
ture  must  be  specified  since  it  is  not  apparent  when  the 
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symbol  appears  on  a  2-dimensional  plan  view.  Here  it  is 
36  inches  above  the  finished  floor.  The  attribute  "cost" 
is  referring  to  the  unit  cost. 

The  set  of  eight  attribute  types  shown  would  pro¬ 
bably  be  sufficient  to  describe  most  of  the  fixtures  that 
would  be  used  by  a  designer.  However,  there  do  exist  a 
number  of  fixtures  or  components  which  require  a  special 
set  of  attributes,  such  as  a  generator  or  control  panel. 

Those  attributes  that  are  common  to  most  designs  can  be 
provided  for  by  pre-setting  a  format  into  which  the  values 
of  attributes  can  be  read.  However,  there  are  several 
other  problems  in  the  area  of  specifications. 

Some  way  must  be  provided  to  increase  the  number  of 
fixture  types  available  to  a  user  of  the  system.  That 
includes  creating  a  new  name  and  a  new  set  of  specifications. 
These  operations  should  preferably  be  performed  by  the 
user.  It  is  assumed  here  that  the  new  fixture  is  being 
added  to  an  already  existing  class,  therefore,  a  suitable 
set  of  attribute  types  already  exist.  It  is  then  just  a 
matter  of  selecting  a  name  and  inputting  values  for  the 
attributes . 

A  different  sort  of  thing  exists  when  a  user  finds 
it  necessary  to  have  a  new  class  of  fixtures.  Aqain  it 
appears  that  the  user  should  have  the  ability  to  create 
one.  In  this  case,  however,  significantly  more  infor¬ 
mation  is  needed.  A  symbol  is  needed  to  represent  the 


the  class.  A  name  is  needed  for  each  picture  type  includ¬ 
ed  in  the  class  and  a  set:  of  attribute  types  is  needed 
to  specify  all  fixtures  in  the  class.  The  last  require¬ 
ment  refers  to  not  just  the  values  of  the  attributes  but 
also  the  kinds  of  attributes  necessary. 

At  this  point  a  description  of  the  general  operations 
of  the  design  system  will  tie  together  many  of  the  topids 
mentioned  above. 

When  the  electrical  design  system  program  is  entered, 
the  console  will  display  the  mode  name  lighting,  power 
and  service.  At  this  point  and  at  several  others,  the 
user  will  be  required  to  determine  his  course  by  entering 
the  command  selected  from  those  listed  on  the  screen.  It 
appears  that  by  displaying  his  alternatives  the  uneducated 
user  will  be  explicity  made  aware  of  them.  The  educated 
user,  who  will  probably  be  aware  of  them  anyway,  can  sim¬ 
ply  overlook  their  presence.  As  well,  interactive  com¬ 
puter  programs  often  leave  the  user  confused  as  to  where 
he  is  in  the  program  sequence  and  some  feedback  or  ver¬ 
ification  of  one’s  progress  appears  helpful. 

The  question  of  how  the  user  will  interact  with  the 
scope  is  a  difficult  one.  In  consideration  of  the  inter¬ 
action  devices  currently  available,  the  "mouse"  appears 
to  be  the  best  for  pointing  at  things  displayed  on  the 
console.  The  mouse  was  developed  by  Engiebart  (6).  The 


11 


fact  that  the  mouse  fits  so  well  in  the  hand,  that  the 
mouse  holding  hand  can  move  comfortably  on  any  flat  sur¬ 
face,  and  that  the  movement,. of  the  mouse  seems  most  free 
and  natural  make  it  a  good  choice.  There  is  a  very  direct 
movement  of  a  tracking  cross  on  the  screen  for  a  similar 
movement  of  the  mouse  and  the  tracking  cross  can  be  pin¬ 
pointed  very  easily.  The  use  of  a  function  button  on  the 
upper  surface  of  the  mouse  seems  very  acceptable  for  use 
as  an  "accept"  command  or  switching  parameter. 

While  on  the  subject  of  the  SRI  mouse  and  inter¬ 
action  devices,  it  seems  that  the  keyboard  and  five-finger 
keyboard  used  at  SRI  and  illustrated  in  (6)  would  also 
be  useful  to  the  electrical  design  system.  The  five- 
finger  keyboard  would  be  useful  for  inputting  commands  Qf 

■  t 

2  or  3  characters  in  length.  But  its  use  to  input  ch^r^c- 
ters  in  any  large  guantity  is  not  warranted  and  a  regular 
typewriter-like  keyboard  would  be  necessary.  Th<?  import-  . 
’  ant  point  concerning  these  devices  and  the  mouse,  as 
used  at  SRI,  is  their  efficient  arrangement  directly 
in  frontof  a  user.  Their  use  in  a  system  such  as  the 
electrical  design  system  involves  going  from  one  form  of 
device  to  another.  This  condition  might  be  objectionable 
if  the  user  were  required  to  change  his  physical  position 
or  his  seating  position  to  use  one  device  and  then  another. 
However,  when  the  devices  are  arranged  as  they  are  at  SRI, 
the  transition  from  one  to  another  does  not  seem  clumsy  or 
confusing. 
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It  is  important  to  establish  a  consistent  use  of  each 
of  the  three  devices  in  order  to  avoid  the  confusing  use 
of  a  multiplicity  of  devices  to  execute  a  single  command. 
For  this  reason  the  electrical  design  system  will  adopt 
the  use  of  the  teletype  to  input  textual  data.  The  five¬ 
fingered  keyboard  will  be  used  to  input  commands  to  the 
system.  The  commands  will  be  two  or  three  letters  long. 

The  teletype  can  be  used,  however,  for  commands  by  users 
inexperienced  on  the  five- fingered  keyboard.  The  mouse 
will  be  used  exclusively  for  pointing  at  picture  points  on 
the  screen.  No  command  words  will  be  displayed  on  the 
screen.  The  mouse  will  be  used  only  incidentally  for  com¬ 
mand  sequencing. 

With  this  background,  assume,  again,  that  a  user  is 
presented  with  the  initial  display  in  the  electrical  de¬ 
sign  system.  The  message  on  the  screen  asks  him  to 
choose  one  of  the  three  modes  by  inputting  its  code  name — 
PO  for  POWER,  LI  for  LIGHTING,  or  SV  for  SERVICE. 

The  selection  of  either  of  the  three  modes  will  cause 
a  list  of  graphic  symbols  to  be  displayed.  The  list 
represents,  in  each  of  the  modes,  the  classes  of  fix¬ 
tures  currently  available  in  that  particular  mode;  Each 
class  will  also  have  a  decimal  number  and  a  textual  name 
displayed  with  it  on  the  screen.  If  the  user  wishes  to 
use  one  of  the  fixture  types  provided  on  the  screen,  he 
selects  that  type  by  inputting  its  decimal  number.  If  the 


user  wishes  to  use  a  type  that  is  not  at  that  point  pro¬ 
vided  ,  he  may  define  a  new  class  by  inputting  the  code  NC 
for  "new  class".  Leaving  this  for  the  moment,  assume  the 
user  selects  a  class  already  provided. 

At  this  point  the  user  is  provided  with  a  displayed 
message  to  the  effect  that  N  number  of  fixtures  are  avail¬ 
able  in  that  class,  from,  say  SNPL15  to  SNPL45.  The  user 
now  has  several  options.  He  can  specify  his  choice  of 
fixture  by  inputting  the  decimal  number  representing  its 
position  on  the  list  of  those  available,  say  "2"  for 
SNPL20.  This  will  cause  the  values  of  the  attributes  of 
SNPL20  to  appear,  as  illustrated  on  page  8.  If  the  user 
is  not  satisfied  with  this  choice,  the  code  word  "UP" 
allows  him  to  view  the  next  fixture  in  the  list,  SNPL25, 
and  "DN"  will  allow  him  to  go  back  down  the  list  to 
SNPL15. 

Of  course,  if  the  user  is  not  satisfied  with  any  of 
the  available  choices,  he  can  create  a  new  fixture.  The 
code  "NF"  will  generate  a  new  fixture  name,  SNPL50  in 
the  example,  and  display  the  attribute  types  without 
values.  The  user  can  then  type  in  data,  proceeding  from 
the  top  attribute  down  until  he  has  reached  the  last 
attribute  or  signals  that  he  is  done  by  a  series  of  three 
carriage  returns.  Up  to  60  alpha-numeric  characters  can 
be  entered  into  one  attribute  category. 
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A  user  can  edit  the  information  he  has  entered  for 
a  new. fixture  by  using  the  code  ED  followed  by  the  line 
number  of  the  attribute  he  wishes  to  edit.  The  line  in 
error  must  be  completely  retyped.  Of  course,  three  carri¬ 
age  returns  will  advance  the  user  from  this  section  of  the 
system  or  if  he  wishes  to  input  more  attributes,  RT  follow¬ 
ed  by  an  attribute  line  number  will  return  him  to  the  line 
specified.  From  this  line,  the  sequence  will  proceed  down 
the  list  as  described  above. 

Once  the  user  has  selected  a  fixture,  either  by  scann¬ 
ing  those  already  established  and  choosing  one  or  by 
specifying  a  new  one,  he  can  begin  placing  copies  of  the 
fixture  chosen  on  the  building  plan.  The  sequence  of  3 
carriage  returns  will  display  the  building  plan.  A  fix¬ 
ture  is  placed  by  moving  the  tracking  cross  with  the 
mouse  to  the  desired  position  on  the  plan  and  pushing  the 
execute  button  on  the  mouse.  A  question  now  arises  as  to 
just  where  the  actual  fixture  is  to  be  placed  in  the  model 
of  the  building. 

The  architectural  design  system  uses  a  hierarchial 
structure  to  model  a  buil^xng.  The  building  is  the  top 
node,  followed  by  room  rodes,  each  of  which  has  wall  nodes, 
and  this  breakdown  continues  to  some  arbitrary  level.  The 
question  of  where  electrical  fixtures  should  be  placed, 
mentioned  in  the  last  paragraph,  is  actually  the  question 
of  where  they  should  be  associated  in  the  overall  tree 
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structure  model  of  the  building.  It  appears  that  the  choice 
is  really  between  the  room  level  and  the  wall  level.  A 
comprise  solution  is  probably  necessary  in  which  fix-, 
tures  will  normally  be  associated  to  walls  unless  a  serious 
ambiguity  exists  or  such  an  association  makes  no  sense. 

The  ambiguity  refers  to  whether  a  fixture  is  on  one  side 
of  a  wall  or  the  other.  It  appears  that  the  best  approach 
to  the  placement  of  fixtures  is  as  follows.  When  a  user 
wants  to  place  a  fixture  on  a  wall  that  is  common  to  two 
rooms,  he  should  place  the  tracking  cross  close  to  the  wall 
but  within  one  of  the  rooms,  or,  in  other  words,  not  direct¬ 
ly  on  the  wall.  The  computer  program  will  then  determine 
the  proximity  of  the  cross  to  a  displayed  wall.  If  it  finds 
a  wall  within  some  pre-set  tolerance  or  proximity,  a  symbol 
will  replace  the  cross  and  a  line  will  be  drawn  from  the 
symbol,  normal  to  the  wall.  The  line  is  a  verification 
to  the  user.  If  he  does  not  feel  that  the  wall  selected 
by  program  represents  his  choice,  he  can  use  the  move  or 
delete  command  to  alter  the  position  of  the  symbol.  These 
commands  will  be  outlined  shortly. 

If  the  program  did  not  find  a  displayed  wall  within  a 
sufficient  proximity  to  the  tracking  cross,  the  tracking 
cross  will  nonetheless  be  replaced  by  a  symbol.  However, 
in  this  instance  no  line  will  be  drawn  from  the  symbol 
and  in  the  model  of  the  building  that  fixture  will  not  be 
Associated  with  a  wall,  but  will  be  associated  with  the  room 
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that  encompasses  the  position  of  the  symbol.  This  pro¬ 
cedure  will  allow  for  the  placement  of  such  fixtures  as 
outlets  or  motors  that  are  not  normally  associated  with 
walls.  Of  course,  this  default  procedure  will  also  be 
invoked  when  a  user  means  to  place  a  fixture  on  a  wall 
but  fails  to  place  the  tracking  cross  within  sufficient 
proximity  to  the  wall.  In  this  case,  again,  the  move  or 
delete  commands  can  be  used  to  re-position  the  fixture. 

Once  these  few  fundamentals  are  understood,  the  user 
can  place  fixtures  rapidly.  The  tracking  cross-mouse 
combination  can  be  though  of  as  analogous  to  the  rubber 
stamp-ink  pad,  insomuch  as  the  mouse  is  "inked  up" 
with  copies  of  the  current  symbol  and  a  symbol  will  be 
displayed  as  many  times  as  the  mouse-execute  button  is 
pushed.  When  the  user  wants  to  change  symbols,  "CS" 
will  return  him  to  the  list  of  symbols  of  the  current 
mode  or  "CM"  will  get  him  back  to  where  he  can  select 
another  node. 

Two  editing  functions  are  available  for  changing 
the  positions  or  the  number  of  symbols  already  placed. 

The  "move"  feature  enables  the  user  to  re-position  a 
symbol.  The  sequence  is  "MS"  for  "move  symbol",  followed  by 
moving  the  tracking  cross  over  the  symbol  to  be  moved  and 
pushing  the  execute  button,  and  finally,  moving  the  tracking 
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cross  to  a  new  position  for  the  symbol  and  pushing  the 
execute  button.  If  for  the  middle  step —  identifying  the 
symbol  to  be  moved  -  the  program  does  not  find  a  symbol, 
a  message  will  appear  on  the  screen  requesting  the  user 
to  try  again.  To  avoid  a  loop  condition,  the  command 
"DC"  will  delete  the  move  command  entirely. 

The  delete  feature  allows  a  user  to  remove  a  sym¬ 
bol  from  the  screen.  The  correct  sequence  is  the  code 
word  "DS"  for  "delete  symbol"  followed  by  an  identification 
of  the  symbol  to  be  deleted  using  the  mouse  and  execute 
button.  Again,  if  the  program  fails  to  find  a  symbol 
matching  the  coordinates  of  the  mouse,  a  message  will 
ask  the  user  to  try  the  identification  part  again.  The 
"delete  command"  code  word  can  also  be  used  here  as  des¬ 
cribed  above. 

An  additional  feature  may  be  incorporated  into  the 
delete  sequence  to  aid  in  the  identification  of  the  actual 
fixtures  represented  by  the  symbols  on  the  screen.  It 
muet  be  remembered  that  a  symbol  represents  a  whole  class 
of  fixtures  and  that  several  members  of  a  class  may  be 
represented  by  a  single  symbol  on  any  given  plan.  The  code 
word  "RN"  will  retrieve  the  names  of  the  fixtures  current¬ 
ly  represented  on  the  screen  and  display  the  name  below 
the  appropriate  symbols.  (The  addition  of  the  names  to 
the  display  will  probably  cause  degradation  of  the  pic¬ 
ture  through  flicker  or  other  means  and  should  be  used 
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sparingly  to  preserve  good  picture  quality.)  The  code 
name  "RS"  followed  by  the  identification  of  a  symbol 
using  the  mouse  will  retrieve  and  display  the  attributes 
of  the  symbol  selected  this  procedure  can  be  only  used 
for  viewing  the  attributes ,  not  for  making  changes  to 
them . 

Fot  viewing  convenience  another  feature  of  the  elec¬ 
trical  design  system  is  scaling.  The  scales  of  1/4 ,  1/8, 
1/16  are  available  and  can  be  selected  by  the  code  words 
"SF",  ”SE",  or  "SS".  These  scales  make  one  inch  on  the 
screen  equal  to  four  feet,  eight  feet,  and  sixteen  feet 
respectively. 

To  make  scaling  more  meaningful,  a  light,  straight 
line  grid  is  displayed  concurrently  with  the  building 
plan  and  symbols.  The  actual  sp<.  jing  between  grid  lines 
in  scope  units  remains  constant  with  changes  in  scale. 
Therefore,  the  value  of  the  grid  separation  must  change. 
Depending  upon  the  number  of  raster  units  per  inch  on 
any  particular  scope,  the  grid  spacing  would  then  be 
arrayed  to  produce  an  actual  unsealed  value  of  16  inches, 

32  inches  and  64  inches,  respectively,  at  the  three  scales. 
Using  this  criteria,  the  grid  not  only  provides  a  refer¬ 
ence  but  also  a  meaningful  guide  for  designers  who  are  con¬ 
scious  of  the  traditional  multiple  of  16  inches  building 
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Additional  Features 

The  usefulness  of  the  electrical  design  system  could 
be  extended  by  several  additional  features. 

At  present  the  various  lighting  manufacturers  publish 
two  dimensional  graphs  which  show  light  intensity  patterns 
for  most  lamps.  The  light  intensity  contours  are  usually 
regular  curves  and  probably  could  be  easily  duplicated  on 
a  computer  and  displayed  on  a  graphics  console.  A  light 
simulation  program  could  reproduce  the  sum  of  multiple 
sources  of  light  with  infringing  light  patterns.  The 
psychological  effects  of  lighting  and  the  heating  effects 
of  lighting  could  be  integrated  into  a  complete  design 
solution  for  a  building. 

It  is  clear  that  the  electrical  design  system  can 

* 

provide  some  kind  of  aid  in  determining  electrical  circuits 

* 

as  well  as  in  establish. .ng  wire  and  conduit  runs.  The 

requirement  here  is  to  be  able  to  express  all  the  factors  j 

(or  at  least  the  most  critical)  in  the  form  of  a  mathe-  \ 

j 

matical  relationship  or  procedure  which  can  be  expressed  j 

in  a  computer  program.  There  are,  of  course,  many  factors  •] 

that  are  expressed  in  mathematical  terms  in  the  electrical  \ 

code  provisions.  These  provisions  deal  with  such  things 
as  the  number  of  fixtures  of  a  particuxar  type  in  a  cir-  : 

cuit,  the  number  and  kinds  of  branch  circuits,  circuit**  \ 

\ 

power  relationships,  and  many  others.  Electrical  pro-  j 
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perties  such  as  voltage,  current,  and  power  relationships 
and  voltage  drop  could  be  expressed.  Other  less  precise 
relationships  would  require  some  experimentation  to  deter¬ 
mine  what  approach  is  best.  An  example  is  the  question  of 
how  the  elements  of  a  circuit  should  relate  according  to 
their  physical  location  m  a  building.  Should  an  attempt 
be  made  to  minimize  the  sum  of  the  distances  between  a 
group  of  similar  fixtures?  In  t;;o  dimensions  or  three? 
Generally,  it  appears  that  automatic  circuiting  and  wire 
routing  could  best  be  accomplished  by  a  man-machine  inter¬ 
action.  This  could  amount  to  either  merely  a  human 
override  of  a  computer  solution  or  a  more  elaborate 
piecemeal  scheme  of  distributing  the  tasks  between  user 
and  computer.  This  might  involve  the  use  of  a  tracking 
procedure  for  the  mouse  which  would  then  allow  the  user 
to  trace  out  a  circuit  or  conduit  run. 


The  proposed  electrical  design  system  outlined  in 
the  last  section  developed  partly  from  the  experience  of 
implementing  a  prototype  electrical  design  subsystem  on 
the  Univac  1108  computer  and  associated  PDP-8  computer 
and  Information  Displays  Incorporated  display  console* 

i  All  equipments  are  located  at  the  University  of  Utah. 

I  Several  aspects  of  this  prototype  will  be  discussed  in 

l 

jr  this  section  with  respect  to  the  computer  system  involved 

rather  than  from  the  user's  viewpoint. 

{ 

The  subsystem  was  composed  of  a  large  main  computer 

C 

r 

\  program  and  approximately  thirty  subroutines.  The  main 

program  was  responsible  for  responding  to  user  inter- 
actions.  It  provided  a  skeleton  for  control  and  called 
Y  on  the  subroutines  to  perform  specific,  isolated  functions* 

This  approach  to  program  structure  made  the  main  program 
easy  to  compose  and,  especially,  easier  to  debug  because 
the  flow  of  control  through  the  program  was  relatively 
easy  to  follow.  As  well,  each  subroutine  could  be  inde¬ 
pendently  written  and  debugged.  Approximately  two-thirds 
of  the  subroutines  were  written  in  Fortran  V  while  the 
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Relationship  to  the  Architectural  Design  System 

The  prototype  electrical  design  system  was  in¬ 
tended  for  use  by  a  designer  after  he  had  established  at 
least  a  two-dimensional  description  of  a  building  plan. 
The  designer  was  required  to  explicitly  label  those  geome¬ 
tric  parts  of  the  plan  which  he  meant  to  be  walls.  He 
was  then  free  to  call  the  electrical  design  system. 

When  the  label  of  wall  was  attached  to  parts  of  the 
plan,  an  indication  of  this  fact  was  made  in  the  tree 
structure  modeling  scheme  of  the  building.  The  modeling 
scheme  was  stored  by  a  hashing  scheme  which  operated  on 
associative  triples  similar  to  those  of  Lincoln  Lab's 
"Leap"  (7) .  In  the  case  of  the  wall  designation  the 
associative  triple  was:  MAKE  'TYPE'  OF  1 AAA4 '  *  'WALL', 
which  was  hashed  according  to  the  values  of  the  literal 
TYPE,  the  literal  name  of  the  geometric  part  AAA4,  and 
the  literal  WALL. 


When  the  electrical  design  system  was  entered,  it 
was  necessary  to  retrieve  the  information  concerning  walls 
since  in  the  prototype  fixtures  were  associated  to  walls 
as  sub-nodes.  Thus,  the  tact  was  taken  that  the  electrical 
design  system  would  provide  the  means  for  retrieving  that 
particular  data  from  the  model  of  the  building  that  it 
needed  as  a  subsystem.  Therefore,  an  electrical  system 
routine  searched  the  data  base  for  all  occurrences  of  the 
type  wall.  For  all  occurrences,  an  entry  was  set  up  in  a 
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local  array  which  held  the  name  of  the  wall  element  and 
its  centerline  coordinate  in  the  building  coordinate 
system. 

It  it  important  m  cases  of  this  kind  to  determine 
just  what  part  of  the  data  concerning  the  building  design 
is  needed  by  any  particular  subsystem.  Provisions  for 
identifying  this  data  can  be  made  in  the  general  design 
phase,  but  it  is  the  responsibility  of  the  subsystem  to 
provide  the  facility  for  retrieving  that  data  and  only 
that  data  it  specifically  needs.  This  provides  for  a  less 
confusing  separation  of  tasks  and  an  economy  of  computing. 

As  well  as  the  background  data  needed  by  the 
electrical  subsystem  prototype,  certain  information  was 
needed  from  the  architectural  design  system  for  display 
purposes.  Since  the  model  of  the  building  may  extend 
down  to  some  arbitrary  level  of  detail,  it  is  clear 
that  for  any  given  application  a  parameter  must  be  set 
to  the  lowest  level  of  detail  that  it  is  necessary  to 
display  for  that  application.  For  the  electrical  sys¬ 
tem  prototype,  the  wall  level  was  the  lowest  level  dis¬ 
played.  The  architectural  design  system  actually  took 
account  of  the  level  display  parameter  and  created  the 
display  file  for  the  building.  The  display  file  was 
communicated  to  the  electrical  prototype  by  putting  it 
in  a  storage  array  which  was  common  to  both  the  electrical 
and  architectural  systems.  As  well,  a  parameter  vhicfy  held 
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the  value  of  an  index  to  the  end  of  the  display  file  was 
passed  in  common  storage. 

The  command  to  the  architectural  design  system  tc 
create  the  building  display  file  is  sent  from  the 
electrical  system.  In  addition  to  the  level  display 
parameter',  th€  architectural  system  display  routine  is 
made  aware  of  several  other  display  parameters. 

There  are  nine  display  parameters  used  by  the 
architecture  modeling  scheme  as  shown  by  Carr  in  (1) . 

They  are  translation  in  X,  Y,  and  Z,  rotation  in  X,  Y, 
and  Z,  and  scaling  in  X,  Y,  and  Z.  Two  of  these  para¬ 
meters  are  set  in  the  electrical  subsystem  to  cause  the 
necessary  plan  view  of  the  building  to  appear  at  a 
particular  scale.  The  plan  view  was  actually  produced 
by  rotating  a  building  without  a  roof  around  its  own  X- 
axis.  This  was  done  by  setting  the  parameter  7RX  to  -90 
degrees . 

A  thorough  discussion  of  the  way  coordinates  are 
represented  is  necessary  before  the  electrical  scaling 
requirements  can  be  explained. 

The  architectural  design  system  records  dimensions 
relative  to  each  node  in  the  tree  structure  model  of  a 
building.  That  means  that,  for  example,  each  wall  is 
dimensioned  relative  to  its  own  coordinate  system.  If 
the  wall  is  made  a  part  of  a  room,  then  the  wail  coord¬ 
inate  system  is  related  to  the  room  coordinate  system  by 
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the  nine  parameters  -•  translation,  rotation,  and  scaling 
in  X,  Y,  and  Z.  In  the  same  way  the  room  is  related  to 
the  building  coordinate  system.  The  values  of  building 
coordinates  are  determined  by  the  following  formula:  B 
scope  units  =  A  feet  x  K  where  K  =  12  — x  100 

r,a8tScr1?-*  ° 1200  sc°iSotnits  •  The  vaiue  °*  "h"  ab°ve 

is  expressed  in  feet  in  the  building  coordinate  system. 

Then,  considering  only  two  dimensions  and  XR  and  YR  stored 
with  values  determined  by  the  above,  the  following  equations 
give  screen  coordinate  values  (all  values  in  the  positive 


X  and  Y  quandrant) 


xs  -  LL!XR  -  2561 A 


,VTZ  X  1200 


2000 


..  re.  t? /~  \  ,y tz  x  1200 

=  !  '-ZD  -  256 )/(  -aTnvs - 


+  1)1  +  256  2 
+  1)|  +  256  2 
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Basically  the  equation  is  simply  a  building  coordinate 

system  value  multiplied  by  a  scale  factor  to  give  a 

screen  coordinate  value.  The  use  of  "256"  and  the  factor 

"2"  are  necessary  to  provide  bias  for  a  hidden  line  and 

perspective  algorithm  and  are  dealt  with  in  (1) . 

The  scale  factor  is  related  to  the  distance  of  the 

viewer  from  the  viewing  plane  (dYP-'.i:  )  and  the  parameter 

VTZ  which  indicates  a  translation  alonq  the  Z-axis  of  the 


building  coordinate  system.  The  formula  is 
VTZ  x  1  ' 0  0 

S.F.  =  ■  =  ’ir  —  .  For  purposes  of  this  discussion 
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the  eye-point  distance  is  constant  at  2000  scope  units. 
In  the  general  architecture  design  system  the  user  may 
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zoom  in  and  out  arbitrarily.  However,  m  the  electrical 
design  prototype,  it  was  adequate  to  cause  objects  to 
appear  at  the  traditional  scales  of  1/4,  1/8,  and  1/16. 

At  these  scales  one  inch  on  the  screen  equals  four,  eight, 
and  sixteen  feet,  respectively,  in  the  building  coordinate 
system.  To  produce  these  scales,  VT7  must  be  80,  160,  and 
320  feet.  The  value  of  VTZ  is  the  second  narameter  suppli¬ 
ed  to  the  architecture  display  routine  for  the  initial 
display  (160  or  1/8  scale)  and  for  every  scale  change. 

At  the  scales  of  1/  -1 ,  i,8,  and  1/J6,  the  screen  can  accom¬ 
modate  objects  of  4^ ,  80,  and  160  feet. 

There  are  two  types  of  displays  presented  by  the 
electri ~  1  design  system.  One  type  involves  the  display 
of  the  building  plan  and  electrical  system  symbols.  The 
other  type  involves  no  reference  at  all  to  the  building 
plan  but  is  one  of  several  local  displays.  To  conserve 
storage  area  when  the  electrical  and  architectural  proto¬ 
types  were  in  computer  core  memory,  a  common  display  file 
storage  area  was  used.  This  resulted  m  the  following 
strategy  concerning  display  file  creation  and  execution. 
When  the  electrical  prototype  had  to  create  a  local 
display,  such  as  the  display  of  symbols  available,  the 
common  storage  area  for  the  display  file  was  used  m  the 
normal  fashion.  In  this  case  the  display  file  would  be 
declared,  initiated,  created,  and  executed  entirely  within 
electrical.  However,  when  a  display  was  to  be  composed  of 
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the  building  plan,  in  part,  a  different  approach  was  taken. 
The  display  file  was  declared  in-  the  architecture  prototype, 
initialized,  and  filled  with  the  commands  necessary  to  dis¬ 
play  the  building  plan.  The  display  file  index  is  also  ir. 
common,  thereby  enabling  the  electrical  system  to  record  the 
amount  of  display  file  used  for  the  building  plan.  This 
much  of  the  display  file  is  executed  when  electrical  is 
first  entered  to  display  only  the  plan.  After  this,  the 
electrical  symbols  are  added  to  the  display  file  beyond  that 
storage  used  to  display  the  plan.  As  symbols  are  added,  mov¬ 
ed,  or  deleted,  only  that  part  of  the  display  file  referring 
to  them  need  be  re-created.  Using  this  strategy,  the  display 
could  be  changed  very  rapidly  and  without  any  annoying  flash¬ 
ing  or  flickering.  A  very  annoying  flash  is  apparent  if,  in¬ 
stead,  the  whole  display  is  re-created.  In  this  case,  of 
course,  the  not-so-small  job  of  re-creating  the  building  plan 
from  the  tree  structure  model  is  necessary. 

Strictly  for  economy  of  storage,  it  was  necessary 
to  consolidate  common  storage  areas  within  the  electrical 
prototype  and  place  them  in  storage  already  reserved  by 
the  architectural  prototype.  It  turned  out  that  much  of 
the  storage  reserved  by  architectural  was  available  to 
electrical  because  the  function  it  was  provided  for  was 
not  needed.  The  most  noteworthy  case  was  the  hidden  line- 
half  tone  function.  Not  using  this  function  provided  a 
large  amount  of  otherwise  unused  space  to  the  electrical 
system. 
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Data  Structuring  and  Storage 

The  electrical  prototype  used  both  local,  temporary 
storage  areas  and  also  the  more  permanent  type  provided 
by  the  architecture  system.  The  information  concerning 
the  attributes  of  the  fixtures  was  stored  as  a  block  in 
the  permanent  hashed  storage  space.  Information  des¬ 
cribing  the  position,  class,  and  type  of  fixtures  was 
stored  in  local  storage  and,  as  well,  was  attached  to 
the  tree  structure  model  of  the  building  to  which  they 
were  added. 

The  attributes  of  a  fixture  required  48  words  of 
storage  to  hold  the  information  related  to  the  eight 
attribute  categories.  The  storage  arrangement  is  depict¬ 
ed  in  the  following  diagram.  The  single  letters  are  single 
storage  words  and  the  others  are  arrays  as  indicated. 


ATTRIBUTES  -  STORAGE 


VOLTAGE 


CURRENT 


MANUFACTURER 


TYPE 


M  (10) 
T  (10) 


50 -WORD 
BLOCK 


MODEL 


DUO) 


MOUNTING  HEIGHT 


COLOR 


COST 


C(10) 


DISPiAY 
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For  display  purposes,  the  eight  storage  areas  are  sepa¬ 
rately  passed  to  display  routines  by  the  use  of  the 
special  purpose  language,  Graphics  Fortran.  They  are  also 
arranged  in  48  consecutive  array  locations  and  are  stored 
in  the  hash  storage  space  as  a  50-word  block.  The  block 

r 

is  stored  according  to  a  hash  address  which  is  specified 
by  the  following  expression.  The  expression  is  similar 
to  one  from  the  Leap  Language  (7)  and  is  processed  by 
Graphics  Fortran.  The  expression  used  is  "MAKE  'ATTRIB'* 
SYMNAM  =  [50]  BLOCK".  The  hash  address  generator  uses 
the  literal  ATTRIB,  the  value  of  the  fixture  or  symbol 
name,  and  the  value  of  the  first  word  of  BLOCK  determine 
an  address. 

When  a  symbol  is  added  to  the  building  plan,  a 
new  five  item  entry  is  made  to  an  array  in  the  electrical 
system.  The  entry  is  depicted  in  the  following  illustration: 


SYMBOL  TABLE  'SYMBOL' 


1A.V.J  ^ „ 
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NEWX  and  NEWY  are  the  coordinates  of  the  fixture  in  the 
bui3.ding  coordinate  system.  The  next  entry  SYMBOL  TYPE 
describes  the  class  of  fixture  used.  This  is  used  to 
determine  which  symbol  should  be  displayed.  The  SYMBOL 
NAME  refers  to  the  class  and,  more  specifically,  the 
actual  fixture  within  the  class  us(d. 

As  well  as  this  entry  per  fixture,  another  is  made 
into  the  hashed  storage  area.  When  the  program  determined 
which  wall  of  the  building  the  fixture  was  to  be  attached  to, 
it  stored  the  name  of  that  wall  in  WALNAM.  This  value,  to¬ 
gether  with  the  value  of  the  name  of  the  fixture  SYMNAM  and 
the  literal  SYMBOL,  are  combined  in  the  association:  MAKE 
BN  [BRN] 'SYMBOL' *WALNAM  =  SYMNAM.  The  effect  of  this  state¬ 
ment.  is  to  attach  a  new  fixture  given  by  SYMNAM  to  the  wall 
node  WALNAM  in  the  building  tree  structure.  The  number  ident¬ 
ifying  this-  branch  on  the  wall  node  is  returned  into  BRN.  The 
value’  of-  BRN  is  stored,  right  justified,  into  the  variable 
BRANAM.  The  literal  '  SYSP'  is  already  there  left  justified. 
The;  composite  might  then  be  ’  SYSP03  ’ .  The  coordinates  NEWX 
and  NEWY  are  transferred  into  the  two  position  array  POST. 

The  association  "MAKE  BRANAM  * WALNAM  =  [2]  POST  is  then 
used1  to  store  the  coordinates  away  in  the  hashed  storage 
space.  The  use  of  the  branch  number  provides  for  uniquely 
identifying  multiple  instances  of  the  same  fixture  on 
one  wall.  As  shown  in  a  previous  diagram,  BRANAM  is 
also-  stored  as  the  fifth  entity  in  a  symbol  table  entry. 


3 

1 


i 


I 


32 

Here  it  is  available  should  a  symbol  be  moved  or  deleted. 
When  the  program  determines  which  symbol  is  meant  to  be 
moved  or  deleted,  which  wall  it  is  attached  to  (the  same 
routine  is  used  to  determine  the  wall  when  the  symbol /ts 
first  placed),  this,  together  with  identifying  the  branch 
number  from  the  symbol  table  is  used  to  make  the  appro¬ 
priate  correction  in  the  hash  area.  For  example,  the 
association  concerning  the  fixture  coordinates  can  be 
broken  using  the  expression  -  "BREAK  SYMBOL (I, 5) 

*WALNAM  =  ?".  This  means  "destroy  the  association  with 
the  branch  name  contained  in  SYMBOL (I, 5)  and  wall  name 
contained  in  WALNAM,  regardless  of  the  value  of  the  tri¬ 
ple,  represented  by  the  ?". 

To  delete  a  fixture,  the  BRANAM  must  be  referred  to 
again.  The  procedure  for  removing  the  coordinates  is 
exactly  the  same  as  described  for  MOVE  above.  However, 
the  reference  to  the  fixture  attached  at  the  wall  no^e 
must  also  be  removed.  Here  only  the  part  of  BRANAM  con¬ 
taining  the  branch  number  is  used.  The  'SYSP'  part?)  is 
discarded.  When  the  branch  number  has  been  stored  into 
BRN,  this  expression  is  used:  "BREAK  BN  [BRN]  ’SYMBOL’ 

*  WALNAM  =  ?".  Again,  there  may  be  multiple  instances 
of  this  fixture  on  this  wall  but  the  only  reference  de¬ 
stroyed  will  be  the  one  whose  branch  number  is  given  by 


BRN 
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It  might  be  well  to  reflect  briefly  on  the  pro¬ 
cedure  used  to  determine  which  wall  a  fixture  should  be 
attached  to.  The  actual  scope  coordinates  of  the  point 
where  the  user  is  indicating  he  wishes  to  place  a  fix¬ 
ture  are  converted  to  building  system  coordinates.  They 
are  'then  used  by  a  function  which  determines  their  prox^ 
imity  to  the  walls  of  the  building  plan.  The  name  and 
centerline  end  point  coordinates  of  each  wall  are  already 
available  in  a  table  described  earlier.  The  proximity 
function  works  as  follows:  an  imaginary  ellipse  is 
created  around  each  wall,  in  turn,  where  the  major,  axis 
of  the  ellipse  is  coincident  with  the  center  line  of  the 
wall  and  the  minor  axis  is  some  fraction  of  the  major. 

The  proximity  function  returns  a  true  value  when  the 
point  being  tested  lies  within  the  area  of  the  ellipse. 

The  allipse  was  used  rather  than  a  rectangle,  for  example,, 
to  reduce  the  ambiguity  where  two  walls  interact  at  one 
end  of  each.  The  rectangles  would  overlap  each  oth.es  to 
some  extent  where  the  walls  intersect  and  thus  provide  an 
ambiguous  situation  with  respect  to  which  wall  the  user 
intended.  On  the  other  hand,  two  ellipses  have  very  little 
in  common  at  the  point  where  the  walls  intersect# 


The  Use  of  Special  Purpose  Languages 


The  electrical  design  system  prototype  relied  al¬ 
most  entirely  upon  the  graphics  software  interface  des- 
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cribed  in  references  (2)  and  (3) .  These  sources  des¬ 
cribe  a  set  of  Fortran  callable  subroutines  and  functions 
useful  for  producing  graphics  on  the  Utah  graphics  con¬ 
sole.  Also  outlined  are  procedures  for  handling  intar* 
actions  from  the  teletype  and  Sylvania  tablet  and  proced¬ 
ures  for  integrating  variables  from  the  teletype. 

In  addition  to  these  a  specific  special  purpose 
language  was  used.  The  language  is  entitled ,  "Graphics 
Fortran.**  It  has  several  applications  in  relation  to  the 
electrical  system. 

The  first  use  of  Graphics  Fortran  occurred  within 
the  process  of  displaying  alpha-numeric  S  after  they  were 
typed  in  through  the  teletype.  This  data  represented 
the  values  of  the  fixture  attributes.  The  names  of  the 
attributes  were  already  displayed  on  the  screen  and  th^ 
values  were  then  added  as  they  were  typed.  Certain  lan¬ 
guage  constructs  were  provided  to  pass  the  data  to  the 
display  screen  in  a  pre-set  format.  The  data  could  be 
of  integer,  real,  or  alphabetic  type,  Display  format 
is  easily  arranged  and  changed. 

Graphics  Fortran  also  processed  the  Leap  like 
associated  data  statements  used  in  the  electrical  design 
system.  With  these  associative  triple  statements,  the 
electrical  system  structured  and  stored  information  into 
a  hashed  storage  area.  The  amount  of  storage  used  depended 
upon  the  ways  in  which  the  associative  triple  was  to  be 
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retrieved*  Thei.user  could  declare  which  dr  ill  of  the 
combinations  of  the  attribute „  object,  and  value  were 
used  to  arrive  at  hash  addresses.  Ano-ther  useful  feature 
enabled  thet  storage  and  retrieval  of  >  arrays  of'! storage, 

It-  is  important  to  no.te  that-- Graphics  FArtranyas  , 
very  evolutionary  in  that  changes -could  readily  be  made 
to  its  compiler  to  reflect  user  demands.  The  compiler 
was  one  automatically  generated- using  the  Tree  Meta  cost-- 
plier  building  system  (8). 


----- 
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E0S2 

LIST  COOL 

INCLUDE  DSPRMS.LIST 
INCLUDE  EDSPRM.  LIST 
IMPLICIT  INTEGER (A-Z) 

INTEGER  POST (3) 

COMMON/EOSPOS/POST  . 

COMMON/EDSS YM/SYMNUM  #  SYMBOL ( NUMSYM » 5  > » TEMP  C  NUMSYM » 3 ) f  NEWX ♦ 
SYMNAM  t WALLST » WTP1 » NEW Y 
COMMON/EDSDAT/WALNAM  » KKK » BRN » BRANAM 
COMMON/EOSSCL/K 

REAL  VTX » VTY , VTZ #  VRX »  VrY  » VRZ , VSX » VSY » VSZ 
COMMON  /VP/VTX t VT Y » VTZ , VRX  t VRY  »  VRZ » VSX , VSY ♦ VSZ 
INTEGER  WTP1.WALLST(5»WTPL) 

REAL  RWALLT (5»WTPL) 

EQUIVALENCE  (WALLST# RWALLT) 

C0MMOn/EDSAT8/V»U»M<10)»T(1Q)»D(10)»H»C<10)»A»ICHAR»ATT 

COMMON/EDSNME/T YPE <  50 » 3 ) f  MAP ( 50 ) #  P  X  CK 
C0MM0N/ED5LBT/LFLAG 
INTEGER  UFV(DFVL)»DFVP»OFVF 
INTEGER  DFB(DFBL»WPN) 

COMMON  /DF/DF V » DFb  »  OF VP » DFVF  , 

NAMELIST/AGAIN/CM » CO »CS*RETURN»OCr SYMNAM  t BRANAM  t NEWX # NEW Y 
NAMELI ST/ V I EW/F . £  #  S I X . W ALNAM  #  WALLST  t RWALLT  t VTX , VTZ » VTY , WTP1 
NAMELIST/BACK/R 
NAMELIST/RESET/RS 
NAMFLIST/ABORT/STOP 
SEGMENT  ENTRY  9 
ALLOW  0 
CALL  INOUTM 
CALL  MARGN(O) 

CALL  ORG(O'O) 

CALL  SWPCHROtrO 
CALL  TABAtiL 
CALL  TABTOLUO) 

CALL  IN7EN(2> 

CALL  NAMELD 
CALL  GZZ20 
CALL  LCHAR 
CALL  WALCRD 
LFLAG  =  0 
CT  =  0 
VTZ  =  160.0 
VTY  =  0.0 
VTX  =  0.0 
SYMNUm  s  0 
XSCALE  =  0 
ATTR  =  0 
MODE  =  0 
YSCALE  =  0 
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K  =  & 

C******.************* **************************************** 

c  — - THE  UEGGlNNlNG  OF  THE  PROGRAM  —————— 

C*****  DISPLAY  MODE  NAMES  *********************** 

2  CALL  SETUF<DFV,OFVP) 

CALL  GRIDLN 
CALL  ORGRID 

CALL  WRITAT(280»900»*THE  ELECTRICAL  DESIGN  SYSTEM**) 
CALL  WRITAT (640 >676* ’LIGHTING** ) 

CALL  WRITAT (648»644»  ’POWERa*  ) 

CALL  WRlTAT(64fa#612» ’SERVICE**) 

C  ALL  WR I  TAT  ( 648 » 58  0  #  *  C I RCU I T I NG *  • ) 

CALL  SENDF 

CALL  TA8INT (1»$1Q) 

CALL  CHRINT ( 1 r$8) 

CALL  SETLST 
READ (5 » ABORT) 

CALL  JUMPS (♦ ABORT $800) 

6  CALL  IDLE 

:all  SWAP 
GO  TO  6 

8  CALL  TTY 

GO  TO  6 

10  CALL  GETTAB(IX»IY»IZ) 

IF(IZ)  6»6»15 

C*E***  "CHECK  WHICH  MODE  WAS  SELECTED  BY  STYLUS  ***** 

15  CALL  LITEBT(600'666'775'700r IX'IY) 

IF (LFLAG  .EQ,  1)  GO  TO  20 

CALL  LITEBT(600'636'775'668rIX'IY) 

IF (LFLAG  .EQ.  1)  GO  TO  21 

CALL  LITEBT (600 '604' 775*636' IX' I Y) 

IF (LFLAG  .EQ.  1)  GO  TO  22 

CALL  LITEBT (600*572*775*604' IX* IY) 

IF (LFLAG  .EQ,  1)  GO  TO  23 


GO  TO  900 

c****** 

TRANSFER  TO  APPRO I ATE  MODE  ********* 

20 

MODE  =  1 

GO  TO  1505 

21 

MODE  =  2 

GO  TO  85 

22 

MODE  =  3 

GO  TO  1280 

23 

MODE  =  4 

GO  TO  110 

c ♦♦*♦*♦♦♦♦**♦♦♦**♦*♦**♦*♦♦ *♦*♦*♦♦***♦*♦**♦*♦**♦*♦♦*♦♦♦♦*♦*♦♦♦♦♦* 
C*********  THE  POWER  MODE  ********************** 

85  ATTR  =  0 

C*****  DISPLAY  POWER  SYMBOLS  ************************ 

CALL  SETDF(DFV.DFVP) 

CONTINUE 


86 
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140?. 


CALL 

CALL 

CALL 

LALL 

CALL 


PART  =  ? 

call  howck 
call  powsym 

CALL  LChAR 

WR1TAT (bO»au» ' ATTKIdUTLSA* ) 

StfiOF 
TA81NT 

CHRINT  ( 1  #3,14, 13) 

SETLST 

READ (b» AGAIN) 

CALL  SETLSt'^^^^^*  f 
K£AD(b»RESET) 

CALL  uUMPS< ‘RESET », *1447) 

CALL  I OLE 
CALL  SWAP 
oO  To  1400 

call  rry 

GO  TO  J.4UU 

CALL  otTTAbtXXiYt ,Z2) 

IP(ZA)  l4OO#l4U0,l420 

€♦*♦**♦*+  DETERMINE  WHICH  SYMBOL  WAS  SELECTED  ************* 


1400 

1405 

.1410 


1420 


1400 


1440 

1445 


1447 


C*********** 


144P 


1490 

1495 


ohECK  = 
uO  1440  Lb  =  B7u»o46#-32 
LY.=  Lb  *•  1  o 
uPY  =  L.b  +  lo 

CALL  L1TCBT (o2j»LY»fcS5,UPY»XX»YY) 
iF(LFuAG  ,E*.  i)  00  TO  1445 
CHECK  =  CHECK  +  l 
CONTINUE 

uO  1440  Lb  =  bb9» 175» -42 
LY  *  LO  **  lo 
UPY  =  Lb  + 

CALL  LITEbT  (o<itj>LY>&b5,UPYfXX»YY> 
IKLFLAG  .to.  1)  G o  TO  1445 
CMECk  r  CHECK  +  1 
CCNT  iiOuE 
gG  To  149b 

pick  =  check 

A I T  NAM 
oET  VAL 

sETuF (uFV  »uF  vP) 

ESTAoLloh  SYMBOL 

AllHicj 

StNOF 

INPUT ($1490*  *1448) 

•EO.  1}  ou  To  26U 


CALL 

CALL 

CALL 


CALL 
CALL 
CALL 
If  (CT 
«c  To  luu 
CALL  sETuMuFVrDFVP) 

CALL  kRITaT (22b» ’NO  SYhtOL 


JAME  AND  attributes  ********* 


¥ 


WAS  FOUNDA*) 


nl  MWiittMfclfTiftMim  -h  1 


■~  ••^vjp'^^w ty»«'rv*“  "*f*-'i  it" 


CALL  Wi<  I  T  M  ( 2«;S » 5 » *  PLEASE.  TkY  AGAlNA’) 

Go  To  <3o 

C************************** ********************************** 

C*********  THE  bERVICE  '•’ODE  ************************* 

1260  ATTR  =  U 

C******  DISPLAY  SEkVICl  SY-'RULS  **************** 

CALL  SETuF(bFV»DFvP) 

1290  CONTINUE 

PART  =  A 
CALL  StKVCE 
CALL  SERSYM 

CALL  wRITAT (bG,oO»  * A'TTRIoUTESA* ) 

CALL  SLiMUF 

CALL  TADINT (1*41310) 

CALL  CHRINT ( 1 *41305} 

CALL  SETLST 
KEAD(S»A<sAIh) 

CALL  oUMPSl  ’hoaiN’  #$2»4990#4950*5600*$n.50> 

13U0  CALL  IDLE 

CALL  v>uAP 
GO  TO  1300 

1305  call  t i y 

GC  TO  13ou 

1310  Call  GL'ITAbUX,YV,E2) 

XF(ZZ)  1300»1300»1320 

C******  utTERMIhL  WHICH  SYMBOL  WAS  SELECTED  ************* 
1320  chECK  -  22 

uO  1330  l-L  =  702  r  *+40^-3^ 

LY  =  Lb  -  X6 
UPY  =  Lb  +  Id 

CALL  LlTctif  (o90M_Y*72b*UpY*XXfYY) 

1*"  (LFLAG  »Ev>.  1)  0 -j  TO  1335 
Ci'ECR  i  CHECK  +  1 
1330  CCiMT  XiJUL 

GO  TO  139b 
1335  hICK  =  CHECK 

C***********  LbTAbLXSH  SfVbOL  NAME  AND  ATTRIBUTES  ******** 
CALL  AITNAM 
CALL  6ETVAL 

1347  CALL  SE  TDF { uFV » uF  v  P ) 

1348  ^  CALL  ATTRIB 
tl  CALL  lENDF 

S'  CALL  INPUT (41390*11348) 
i390jfi  iF(CT  .Eo.  1)  &0  10  260 
GO  TO  100 

lb95^»  CALL  SETDF(UFV.OFVP) 

CALL  WR I TmT  ( 22b  *  AO  * ’NO  SYr-'COL  WAS  FOUNDA’ ) 

CALL  WKITAT (225*5* ’PLEASE  TRY  AGAIbA*) 

GO  To  1290 

C  *****f****  ************************  f****************^*^,^^^* 


C  - CIRCUITING  sEi-E<~TLD - - 

110  CALL  btTQr  (Dh«/»UFVP> 

CALL  WRITAT (2UU»SUG» • THE.  ELECTRICAL  OESIGN  SYSTEM**) 
CALL  WK1TAT (64ti#67o» * LiGHT INGa * ) 

CALL  wRlTMT(bHOfb44»»POWtRA*) 

CALL  wRITmT (b4U»bl2r ’SERVICEa* ) 

CALL  INTEN(O) 

CALL  PQS(500#56£) 

CALL  V£C ( GQU t bob ) 

CALL  iNTEN(l) 

CALL  \Z£C(b7o»b9H) 

CALL  pQS(600#bo6> 

CALL  v£C(b7brb6U) 

CALL  iNTtN(2) 

CALL  ,  k  1 T hT  (  j-ioucJi  ’  C  1 hCUlTINGA  * ) 

CALL  bENL/r 
CALL  ScTLbl 
READ(S#AGAiu) 

CALL  OIMPSOAGmIu*  #  2,2  >  4990 , 4950  >  $&00  *$1150) 

CALL  CfiRIH  f ( 1 » $lcC ) 

*  lib  CALL  IDLE 

^  CALL  SaAP 

V  GO  TO  lib 

120  CALL  TTY 

GO  TO  lib 

C«**t****«»** ********* *^** ************************************** 
0**4 ******************* *********4 *************** 
c*********  THE  LIGHT  mode  ********************** 


C******* 


ATTR  -  U 
PART  -  1 

display  LIGHTING  symbols  ********** 
CALL  SETDr (uPVfDFVP) 

CONTINUE 
CAUL  LIGHT 
CALL  lITSYNI 

CALL  ttRITAT(50»50* ’ATTRIOUTESa*) 

CALL  LCHAR 
LAlL  senof 

CALL  TABlNT (If  41510) 

CALL  OHHlNTUf  *1502) 

CALI  SETLST 
Rt-AQ  (5»  AGAIN) 

CALL  JUMPS  ( ’AGAIN*  »$2»4990»$9b0»4d00»$1150) 

CALL  IDLE 

CALL  SWAP 

GO  TO  lbOO 

CALL  fTY 

GO  To  15u0 

CALL  g£TTABUX>YY*Z<.) 

1MZZ)  1500»lby0»lb20 


”  ■  ’V"'  r*T  * 


-  r*r 


1*2 


1520  CHECK  =  31 

UO  1525  Lb  =  7oH»o36#-32 
lY  =  Lo  -  16 
uPY  =  LB  +  lo 

CALL  LlTEBT (55b»LY *  60 5 » UPY  »XX» YY) 

IF (LFLAG  .EG.  1)  GO  TO  1540 
CHECK  =  CHECK  +  1 
1525  CONTINUE 

DO  1530  LB  =  700#636»-32 
LY  =  Lb  -  16 
UPY  =  Lb  ♦  lb 

CALL  uITEbl (515#LY»545,UPY»XX»YY) 

IF (LFLAG  .EG.  1)  GO  TO  1540 
CHECK  =  CHECK  +  1 
1530  CONTINUE 

CHECK  •  9 

DO  1535  LB  =  559* 175 *-32 
LY  =  Ld  -  16 
UPY  =  LB  +  16 

CALL  LITE6T(550*LY*590,UPY*XX»YY) 

IF (LFLAG  .EQ«  1)  GO  To  1540 
CHECK  =  CHECK  -*■  1 
1535  CONTINUE 

GO  TO  1595 

1540  PICK  s  CHECK 

C ***********  ESTABLISH  SYMBOL  NAME  AND  ATTRIBUTES  ********* 

CALL  ATTNAM 
CALL  GETVAL 

1547  CALL  SETDF(DFV,UFVP) 

1548  CALL  ATTRIB 
CALL  SENDF 

CALL  INPUT ($1590*51548) 

1595  CALL  SETOF(DFV,DFVP) 

CALL  wRITAT (225*30 *  *NO  SYMBOL  WAS  FOUND**) 

CALL  WRITAT (225* 5* ’PLEASE  TRY  AGAIN**) 

GO  TO  1507 

1590  IF(CT  .EQ.  1)  GO  TO  260 

C**«*  BUILDING  THE  GRID  ************************* 

100  CONTINUE 

MARK  =.  1 
105  CONTINUE 

c*******  DISPLAY  The  building  plan  from  tree  *********** 
CALL  house 
CALL  GR10LN 
CALL  DRGRIO 
CALL  PLACE 
CALL  REGEN 
call  mesage 
CALL  bENDF 
CT  =  1 


IS"' '  VVflW 
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C***«  PLACING  THE  SYMBOLS  ***********♦**•***'»***** 

500  CALL  TABINT ( 1 *$S1G ) 

CALL  CHRINTU.S507) 

CALL  SETLST 
READ ( 5' AGAIN) 

CALL  JUMPS  < • AGAIN  * .  $2 ,  $990  . $950 » $300  >  S 1 1 50  > 

CALL  SETLST 
REAO(S.VlEW) 

CALL  JUMPSCVICW*.  51000*51005.  $1010) 

505  CALL  IDLE 

CALL  SWAP 
GO  TO  505 

507  CALL  TTY 

GO  TO  505 

510  CALL  GETTA8 ( IX* I Y  * IZ) 

IPX  12)  505.505.520 

520  CALL  LlTEBT (0*100*1024*1024 *  IX  *  I Y ) 

IF (LFLAG  .EQ.  1)  GO  TO  245 
CALL  L I  TEST  (C*41*jl50«75«IX*IY) 

XFXLFLAG  .EQ.  I)  GO  TO  530 
CALL  LITEBT10. 15* 150*40 * X A# 1 Y) 

IF (LFLAG  .EQ.  1)  GO  TO  700 
GO  TO  975 

245  CALL  6RIDPT (XX* IY ) 

C**«*»*  ATTACH  SYMBOL  NAME  WITH  ATTRIBUTE  OF  ‘SYMBOL*  AND  OBJECT  OF  WALL  NAME 
MAKE  BNCBRNJ  • SYMBOL '*WfcLNAM=SYMNAK 
CALL  BRANH 
SYMNUm  =  SYMNUM  +■  1 

PUT  SYMBOL  COORDINATES  IN  ARRAY  'SYMBOL'  *** 

255  SYMBOL (SYMNUM* 1)  =  NEWX 

SYMBOl(SYMNUM*2)  =  NEhY 
XND  =  MAP (PICK) 

NEWPXC  =  TYPE ( INO*  3) 

C*********  PUT  SYMBOL  TYPE  .INSTANCE  NAME. AND  BRANCH  NAME  IN  'SYMBOL'  ** 

SYMBOL (SYMNUM* 3)  =  NEWPIC 
SYMBOL (SYMNUM.4J  =  SYMNAM 
SYMBOL (SYMNUM* 5)  =  BiUNAM 
POST (1)  =  NEWX 
POST (£)  =  NEWY 
POST (3)  =  NEWPIC 

C*»**«*  bTORE  COORDINATES  WITH  ATTRIBUTE  OF  BRANCH  NAME  AND  OBJECT  OF  WALL  NAME 
MAKE  BRANAM*WALNAM=[23P0ST 

260  CONTINUE 

265  CALL  HOUSE 

266  CALL  DRGRXD 
CALL  mesage 
CALL  PLACE 
CALL  REGEN 

CALL  WR I TAT (50 *50* 'MOVE*' ) 

CALL  WR1TAT(50. 20* 'DELETE*') 


CALL  StNUF 
MARK  =  2 
60  TO  500 

C***+  THE  MOVE  PART  ******#*#*********#***•*# 

530  CONTINUE 

CALL  HOUSE 

532  CAL'.  WRlTAT(SO,bG»*MOV£M) 

l.\LI  ivRITAT (50*20,  'DELETES’  ) 

CALI  .N'ENIO) 

Cf'-l  ?05(175*56) 

CALL  ~C (125*56) 

CALL  VEC(137*61) 

CALL  pOS(125*5ti> 

CALL  VEC(137,5i) 

CALL  INTEN(2) 

CALL  DRGRID 
CALL  MESA6E 
CALL  REGEN 
CALL  SENDF 

IF (FORK  .EQ.  1)  GO  TO  560 
IF (BRANCH  .EQ.  1)  60  TO  560 
C***  DETERMINE  WHICH  SYMbOL  WAS  SELECTED  ***** 

FORK  =  0 
MARK  s  3 

CALL  TABINT (1 *$550 ) 

CALL  CHRINT( 1*4545) 

CALL  SETLST 
READ (5» AGAIN) 

CALL  JUMPS( ’AGAIN*  *42*4990*4950*4600*41150) 

540  CALL  IDLE 

CALL  SWAP 
60  TO  540 
545  CALL  TTY 

GO  TO  540 

550  CALL  GETTAB(PXfPYfPZ) , 

IF(PZ)  540 * 540, 560 

C«****  DETERMINE  WHERE  THE  SYMBOL  IS  TO  BE  MOVED  TO  ***♦♦***«. 
560  BRANCh  s  1 

CALL  TABINT (1»460Q) 

590  CALL  IDLE 

CALL  SWAP 
GO  TO  590 

600  CALL  GETTAB(IX»IYjIZ) 

IF(IZ)  590*590,610 
610  IF (FORK  .EQ.  1)  GO  TO  612 

CALL  gRIDP t (PX»PY) 

WALNOD  =  wALNAM 
PY  =  NEWY 

PX  -  NEWX 

CALL  WHICH (PX»PY *$630*NUM) 


612  CALL  LITE6T<0»0,1024»75»IX»IY) 

IF (LFLAG  .EQ.  1)  GO  TO  1100 
CALL  GRIDPT(IX»1Y) 

SYMBOL  (NUM,1)  =  Nt'WX 
SYMBOL (NUM# 2)  =  NEwY 

C*****  DESTROY  OLD  COORDINATES  IN  DATA  BASE  **** 

BREAK  SYM80L(NUM*5)*WALN0D=? 

POST ( 1 )  =  NEWX 
POST (2)  =  NEWY 

C*****  STORE  NEW  COORDINATES  ******** 

MAKE  SYMBOL ( NUM » 5 ) *WALNOD=L  2 IPOST 
615  CONTINUE 

CALL  HOUSE 
CALL  URGR1D 
CALL  MESAGE 

CALL  wRITAT(bO,50» ’MOVE*’) 

CALL  WRITAT (50»20» ’DELETE** ) 

CALL  PLACE 
CALL  REGEN 
CALL  SENOF 
MARK  =  2 
BRANCH  =  0 
GO  To  500 

C*+***  SUBI'OurnC  WHICH  DID  NOT 'FIND  A  SYMBOL  ****************** 
630  CALL  HOUSE 

CALL  WRITAT (22b»30r ’NO  SYMBOL  WAS  FOUND**) 

CALL  WRITAT (225. 5» ’PLEASE  TRY  AGAIN** > 

BRANCH  =  u 
oC  TO  532 

C*******  THE  OELETE  COMMAND  ********************** 

700  CONTINUE 

CALL  HOUSE 

702  lALL  ORGRlu 

lALL  mesage 

call  WRITAT ( 50 , 50 » ’MOVE*’) 

CALL  WRITAT (50i20r ’DELETE*’ ) 

CALL  INTEN(O) 

CALL  p0S(190»2o) 

CALL  vEC ( 140  »26) 

CALL  VEC ( 152 t 31) 

CALL  POS(1HO»26) 

CALL  VEC ( 152 » 21) 

CALL  1NTEN(2) 

CALL  REGEN 
CALL  SENDF 

C*******  DETERMINE  WHICH  SYMBOL  IS  TO  BE  DELETED********* 

MARK  =  4 
COUNT  ^  0 

705  CALL  TA8INTUn$720) 

CALL  CHRINT (l»$71b) 


CALL  SETLST 
RLAD(5#A6AIN) 

CALL  JUMPS( 1  AGAIN*  #$2#i99Q»S95G»$800»$1150) 

CALL  SETLST 
R£AD(b»VIEW) 

CALL  JUMPS(*VIEW’#$1000#$1005#S1Q10) 

710  CALL  IDLE 

CALL  SWAP 

GO  TO  710  , 

715  CALL  TTY  / 

GO  TO  710 

720  CALL  G£TTaB(OX*DY»OZ) 

IF  CDZ)  71u#710#730 
730  CALL  oRIOPT (OX#DY) 

JX=  NEWX 
uY  =  NEWY 

CALL  WHICH(DX#OY»$760»BOXNUM) 

XBOX  =  80XNUM 

c*******  retrieve  branch  number  ****** 

BRN  =  SYMBOL (5#X60X) 

c******  OESTROY  ASSOCIATIONS  To  SYMBOL  bEING  DELETED  *** 

BREAK  BNCbKNJ  » SYMBOL »*WALNAM=? 

COUNT  =  1 

IF (SYMNUM  .EQ.  1)  GO  TO  750 
IF (XBOX  ,NE.  SYMNUM)  60  TO  735 
SYMNUM  =  SYMNUM  -  1 
GO  TO  745 

735  SY MNUin  =  SYMNUM  -  1 

C******  DELETE  TriE  SYMBOL  AND  RE-ORDER  * SYMBOL*  **** 

UO  740  SORT  =XBOX» SYMNUM 
SYMBOL (SORT# 1)  =  SYM80L(S0RT+1»1> 

SYMBOL (SORT » 2)  =  SYMBOL (SORT+1 »2) 

SYMBOL (SORT# 3 J  =  SYMB0L<S0RT+1#3> 

SYMBOL (SORT #4)  =  SYMBOL ( SORT+1 #4) 

740  ;  SYMB0U(S0RT#5)  =  SYMB0L(S0RT+l»5) 

745  CONTINUE 

*  call  house 

CALL  DRGRID 
CALL  MESAGE 

CALL  WRITAT(SO»SO#«MOVEa') 

CALL  WHITAT(50»20f ’OELETEA*) 

CALL  PLACE 
CALL  REGEN 
CALL  SENDF 
MARK  =  5 
GO  TO  705 
750  \YMtlUM  =  0 

MARK  c  2 
GO  TO  500 

C*******  STYLUS  WAS  NOT  POINTING  AT  A  SYMBOL  TO  BE  DELETED  ***** 


*7*Tr??5^SrTr**7s5  ^TFj  — “  -^wf?|V" 


760  IF (COUNT  .£3.  o)  GO  TO  765 

IX  =  Oa 
1Y  =  DY 
GO  TO  520 

765  CALL  HOUSE 


lALL  iilTuii(O) 

CALL  WRITaT (225*30*  *NO  SYMbOL  WAS  FOUND**) 

CALL  wHITaT (225*5* ‘PLEASE  TRY  AGAIN**) 

GO  TO  702 

C*******«************$******i|i*4**********************»********** 

900  CALL  SETLST 

REA0(5*BACK) 

CALL  JUMPS <* BACK** *2) 

CALL  SETDF (DFV»UFVP) 

CALL  WRITAT (272*500, ‘TRACKING  CROSS  OUT  OF  BOUNDS* ‘ ) 
CALL  wRITAT (272*480, ‘TYPE  AN  «Rn  TO  RETURN**) 

CALL  SENOF 

CALL  CHRINT ( 1*$9G5) 

910  call  idle 

CALL  SWAP 
GO  TO  910 
905  CALL  TTY 

GO  TO  910 

C*«************************¥**************4.ft*******************4 

950  GO  TO  (I505*85*126u) *PART 

975  CALL  SETDF (DFV*0FVP) 

CALL  HOUSE 

CALL  WRITAT (225*30*  *  THIS  IS  A  RESTRICTED  AREA**) 

CALL  WRITAT (225 *5* ‘PLEASE  TRY  AGAIN**) 

GO  TO  266 
990  CT  =  0 

DO  995  IGA  =  1*SYMNUM 
S7MB0L(1GA*1)  =  0 
SYMB0u(IGA»2)  =  0 
SYMB0L(IGA,3)  =  0 
995  CONTINUE 


SYMNUM  =  0  . 

GO  TO  2 

c******************************************************** 

c  -  K  IS  THE  SCALE  PAR/ MATER  - - 

1000  K  =  4 

VTZ  =  80.0 
VTX  =  0.0 
VTY  =  U.Q 

GO  TO  (100*260,530*700,745) *MARK 
1005  K  =  8 

VTZ  =  160,0 
VTX  =  0.0 
VTY  =  0.0 


GO  TO  (100*260*530*700,745) *MARK 


WSBWWWIWpWWff'S  1,1  J  . . 
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10in  k  =  16 

VT2  =  320.0 
vTX  =  y.O 
vTY  =  0.0 

GO  TO  <l0li.260.5^U.?U0.745) .MARK 
U00  CALL  HOUSE 

CALL  wRi TmT (225.30. ‘SYMbOL  CANNOT  BE.  MOVED  TO  A  RESTRICTED  A*) 

CALL  V.RITAT (S55.3U. ‘AREAa* ) 

CALL  WRITAT<225. 5. ‘PLEASE  TRY  ANOTHER  LOCATION**) 

FORK  =  1 
GO  TO  532 

H50  CALL  RESrOR 

MARK  =  2 
BRANCH  =  0 
GO  TO  500 
800  CONTINUE 

CALL  SETUP (UFV.OFVP) 

CALL  SENDF 
SEGMENT  RETURN 
END 

C*t*****************#***************************»******«t**>?  ************«*•**< 

C***» ****************«******,*************« ******«*****,,******6«***********iM 

ATTRlri 

c«****>  formats  fixed  and  variable  information  **** 

C.  FOR  FIXTURE  ATTRIBUTES  —  PAX .PAY  ARE  COORDINATES  OF 

C  UPPER  LEFT  CORNER  OF  BLOCK  DISPLAY  INFO  *** 

SUBROUTINE  ATTRld 
LIST  OFF 

INCLUDE  EuSPRM.LIST 
IMPLICIT  iNTEGERtB-Z) 

CCMMON/EDSS Y  M/S YMNUM » SYMBOL ( NUMSYM .  5 ) »  TEMP  C  NUMSYM . 3 ) * NEWX  » 

*  HEWY.SYMNaM.WALLST.wTP1 

CCMM0n/EDS<>  rtJ/V»U»N( lO) .T<10).D<10).H.C(10>.A»ICHAR»ATT 
PAX  =  50 
PAY  =  016 

CALL  WRI TAT (50.200. ‘CONTINUEa* ) 

call  wpitat i25.7oo» ‘These  are  the  attributes  of**> 

PICTURE  FORM  AT  75.675 

WSYMNAMK 

PICTURE  Form  END 
PICTURE  FORM  AT  PAX .PAY 
VOLTAGE  ;?V?  VOLTS 


CURRENT  i?U?  AMPS 


MANUFACTUER  :HM(1) rtBM(2) M»M( 3) ««M(4> rt#M(b) » 
TYPE  :jrT(l)pttT(2)a»T(3)BrtT(4)«AT(5)» 
MODEL  :MMl>*B0<2)a«0(3)UWD(4)»)«D(5>» 


MODEL 
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MOUNTING  HEIGHT !?H? 

COLOR  :ttCU)JflCl2)iltfC(3>>jK£(4>8«C(5>8 

,-4  V 

COST  :$&2'Ad  ... 

PICTURE  FORM  EnCT 

return 

END 

c******#*******************«**************************w*************»******** 

SERVCE 

C***»*  FORMAT  FOR  NAMES  OF  SERVICE  SYMBOLS  ** 

SUBROUTINE  SERVCE 
LIST  OFF 

INCLUDE  EDSPRMt  LIST 
INTEGER  PStX»PS£Y 

COMMON/EOSS YM/SYMNUM » SYMBOL ( NUMSYM *  5  >  »  TEMP INUKSYM#  3> ♦ NEWX  » 

*  NEWYf  SYMNAMiWALLST  » wTPl 

PSEX  =  766 
PSEY  =  700 

CALL  WRITAT<32B#925,*~  THE  SERVICE  SYMBOLS  — A»> 

CALL  wRITAT (74b»75U ♦ 'SPECIAL  OEVICESa') 

PICTURE  FORM  AT  PSEX*PSEY 

GENERATOR 

MOTOR 

METER 

THERMOSTAT 

» 

ANTICIPATOR 

PANEL 

CONTROL  PANEL 

DISCONNECT 

TRANSFORMER 

PICTURE  FORM  END 

RETURN 

END 

C******************************«**********»**«******************»***********4 

POWER 

C*«*«**  FORMATS  NAMES  OF  POWER  SYMBOLS  *♦«.*** 

*4^  '-  St.'JROUTINE  POWER 
'•  LIST  OFF 

INCLUDE  EUSPRM*  LIST 
INTEGER  PSwX»PSwY*PPX»PPY 


-.3 


■■ . nf-  ■ 
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C0MM0N/ED5S YM/S YMNUM » SYMBOL  t NUMSYM >  5 )  » TEMP  ( NUMSYM » 3 )  t NEWX » 
*  N£WY*SYMNAM#WALLST#WTP1 

PSWX  =  700 
PSWY  =  550 
PPX  =  700 
PPY  =  868 

CALL  WRITaT  C325»950f  THE  POWER  SYMBOLS  —A*) 

CALL  WRITAT<625>918» 'CONVENIENCE  OUTLETSa') 

PICTURE  FORM  AT  PPXiPPY 

TWO  WIRE 
WEATHERPROOF 
tXPLOS I ON^PROOF 

•» 

GROUNDED 

CLOCK 

THRF"  WIRE 
SPECIAL  PURPOSE 
FLOOR 

PICTURE  FORM  END 

CALL  WRITAT(660»600» 'SWITCHESa' ) 

PICTURE  FORM  AT  PSWX » PSWY 
SINGLE  POLE 

DOUBLE  POLE 

THREE-WAY 

FOUR-WAY 

WEATHERPROOF 

PILOT  LIGHT 

TWO-SPEEO 

THREE-SPEED 

AUTOMATIC 

W.'CONV .  OUTLET 

EXPLOSION  PROOF 

KEY  OPERATED 


♦ 

*  • 


PHOTOCELL 


PICTURE  FORM  EK'D 

RE  TURN 

END 

C**************+*****«*»*********t***************************«*t*iM 

LIGHT 

c**********  FORMATS  THt  textual  names  of  lighting  symbols  *** 
subroutine  light 

LIST  OFF 

INCLUDE  EOSPRM,  LIST 
INTEGER  PFX»PFY#PSX.PSY 

COMMON/EDSSYM/SYMNUM » SYMBOL { NUMSYM 1 5 ) • TEMP ( NUMSYM  *  3 ) » NEWX i 

*  newy»symnam»wallst#wtpi 

PFX  =  636 
PFY  =  757 
PSX  =  638 
PSY  =  550 

CALL  wRITAT (275»925#  THE  LIGHT IN6  SYMBOLS  — A»> 

CALL  WRITAT(590»807,*FIXTURESA»> 

PICTURE  FORM  AT  PFX#PFY 
SURFACE  FLOURESCENT 

RECESSED  FLOURESCENT 

SURFACE  INCANDESCENT 

RECESSED  INCANDESCENT 

PULL  SWITCH 

PICTURE  FORM  END 

CALL  WRITAT ( 590 »6Ciu i  ♦SWITCHES** ) 

PICTURE  FORM  AT  PSXfPSY 
SINGLE  POLE 

DOUBLE  POLE 

THREE-WAY 

FOUR-WAY 

WEATHERPROOF 

PalOT  LIGHT 

TWO-SPEEO 


THREE-SPEED 
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automatic 

W/CONV .  OL'TLi.r 
EXPLOSION  PROOF 
KEY  r.pLHAlfO 
PnOlOCELL 

PICTURE  FORM  END 

RETURN 

END 

c*****+************** ************  *********  ****** ************ r*************f*< 

TYPAIT 

SUBROUTINE  TYPAtT 
LIST  OFF 

C******  STORES  50  WORD  BLOCK  OF  ATTRIBUTE  VALUES  *** 

INCLUDE  ECSPRM.  LIST 
INTEGER  V.U.M.T.D.H.C.ATT 

CCMM0N/E0SSYM/5YMNUM . SYMBOL (NUMSYM , 5 ) *  TEMP ( NUMS YM  >  3 ) t  "WX . NEDY i 
C  SYMNAM.HALLST. wTPi 

COMMON/EOSATB/V  »U»M(10) .T(l0).D(lG)>M»C(10) . A.ICHAR. ATT 
INTEGER  OATABU50) 

EOUIVAi-ENCE(OATABL#OAAAT) 

REAL  DAAAT(bO) 

ALLOW  0 
OATABLll)  =  V 
0ATABL(2)  =  U 
00  10  1  =  1.10 
DATABL (I+2)  =  Mil) 

10  CONTINUE 

00  20  I  =  1.10 
20  CONTINUE 

DATABLlH-12!  =  TU) 

00  30  I  =  1.10 
DATABLd+22)  =0(1) 

30  CONTINUE 

0ATABL133)  ^  ri 
DO  40  I  =  1.10 
DATA8LU+33)  =  C(l) 

40  CONTINUE 

OAAAT (44)  =  A 

BREAK  »ATTRIB**SYMNAM=? 

MAKE  •ATTRIB»*SYMNAM=C503DATABL 

RETURN 

END 

C****** *'************** ************************************************ ****** 

TA8W 

SUBROUTINE  TACU 


w  '«v  •  T  Vi?;  ■  e  '-4T«.S 


■  =* 


LIST  SOUKCt  cooe 
C  TABLE  A  WAlL  SPACEFOHM 

INCLUDE  EUSPHM*LIST 
C 

INTEGER  CNOU£*CLEVEL 
COMMON  / APY  TRO/CNOUE  r  CLLVEL 
C 

REAL  U(3i4) 

COMMON  /TNSMRX/U 
INTEGER  WALLST 1 5» WTPL) 

REAL  RWALlT(5>wTPe) 

EQUIVALENCE  (WALLST t  RWALLT ) 

INTEGER  WTP1 

COMMON/EOSS YM/SYMNUr  #  SYMBOL (NUMSYM»  5 ) t TEMP (NUMSYM*  3) »NEWX  »NEXYf 
C  SYMNAM»WALLST»wTP1 
C 

COMMON  /ERR/IERR 
INTEGER  IERR 
C 

REAL  PA (60) 

INTEGER  IPA(60) 

EQUIVALENCE  (PA»IPA) 

COMMOh  /pa/pa 

REAL  STX  *  sT Y , STZ , SKX . Sk  T . SRE  »  SSX  *  SSY  »  SSZ 
COMMON  /STR/sTx  » ST Y , STZ , SKX , SRY . SRZ , SSX » SSY » SSZ 
REAL  0lSPTl,uISPT3(3>»OlSPT4{3> 

CALL  T  YPOUT < ' ( 6hCNO0E= , A6  *  2Hha ) *  * CNODE ) 

ALLOW  0 

IF(»*TYPE'*CnOuE='»WALL*)GO  TO  50 
RETURN 

50  WTP1=WTP1+1 

IF(WTP1.LE.WTPl)G0  TO  200 
C 

C  NO  MORE  ROOM. 

wTP1=V»TPL 
IERR=5 
RETURN 
C 

200  IFI’SNOTYP’WCnC^s'STRM’IGO  TO  205 

CALL  T YPOUT ( 'WALL  IS  NOT  A  PRIMATIVEba* ) 

RETURN 

205  C603Pa<='SPRIM'*CN0DE=? 

II  =  IPA(l)+4 

0ISPT3U)  =  AaS(PA(U))*SSX 
OISPT3(2)-0.0 

QISPT3(3)=ABS(PA l I 1+2) ) ♦SSX 

0ISPTI=AMAX1 ( ABS (PA ( I 1  ) ) *SSX . ABS (PA ( I 142 ) ) *SSZ) 

IF(DISPT3(1) «NE.0ISPT1)0ISCT3( 1)=0.0 
IF (DISPT3(3) ,NE.UISPTI)DISPT3(3)=0,0 
CALL  APPYRM(DISPT3»0ISPT4) 


laiiiiriiiaitfiiiti'iifiiiMiMiMfrfMirM  i  •  rr liiiMiiiiWHi  i  . yt-V7-t  v 


RWALLT  (2#WTPl)sDlSPT4(?.) 

RWALLT  (3»WTPl)sDISPT4(3) 

QISPT3(1)=-DISPT3(1) 

0ISPT3(3)=-D1SPT3(3) 

CALL  APPYRM(DISPT3»0ISPT4) 

RWALLT (4  #  WTP1 ) =0ISPT4 ( 1 ) 

RWALLT (5#WTPl)sDISPT4<3) 

WALLST U # WTP1 ) =CNOOE 

PRINT  2000 « (WALLST ( I  * WTPi ) » 1=1 »5) 

2000  FORMAT (1X»A6*4(1X»F1U.5)) 

RETURN 

eno 

C**t***0^**m*m’************************tf  ************************************** 

APYTRE 

SUBROUT INE  APYTRE ( T0PN0D  »FND0WN»  FNUP t STPC0D» ATTR >  V  AL  ) 

LIST  SOURCE  COOL 

C  APPLY  A  FUNCTION  TO  A  TREE 

C 

C  TOPNOD  CONTAINS  THE  NAME  OF  THE  TOP  NODE  OF  THE  TREE 

C  FN  CONTAINS  THE  NAME  OF  THE  FUNCTIONS  TO  BE  CALLED  AT  EACH  NOOE 

C  STPCOD  CONTAINS  THE  STSTOP  CODE  <1  OR  2  PRESENTLY) 

C 

INTEGER  TOPNODiSTPC00*ATTR.VAL 
EQUIVALENCE  (ATTR, LEVEL) 


INCLUDE  OSPRHSt  LIST 


INTEGER  IERR 
COMMON  /ERR/IERR 

REAL  U(3»4) 

COMMON  /TNSMRX/U 

INTEGER  NAMEl(WHN) 


REAL  TX#TY.TZ,RX,RY,RZ,SX»SY,SZ 
COMMON  /TR/TX  »  T Y  »  TZ , RX » RY  , RZ  » SX  , SY , SZ 

REAL  VTX . VT Y , VTZ , VRX , VR Y , VRZ  , VSX  , VSY » VSZ 
COMMON  /VP/ VTX i VTY » VTZ , VRX r VRY » VRZ ,  VSX , VSY , VSZ 
REAL  STX  »  ST Y , STZ  r  SRX , SR Y , SRZ » SSX  t SSY  #  SSZ 
COMMON  /STR/STX » ST Y . STZ  *  SRX » SRY ,SRZ,SSx, SSY , SSZ 


INTE6ER  TNME 


o r>  o  oo  o  o o 


7  ■nmyrB<jwi  k  i 
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REAL  rRS(9) 

INTEGER  TRSNKE 
COMMON  /TRS/TRSNML  *  TKS 


LEVANT  DATA  WHEN  *FN»  IS  CALLED 

INTEGER  CLEVEL  (iCjRRENT  LEVEL  DURING  TREE  PROCESSING 

COMMON  /APYTRD/TNME» CLEVEL 


integer  FnQOWN»FNUP 


CHECK  STOP  CODE  VALIDITY 
ALLOW  0 

IF((S7PCOO.EQ.1).OR.{STHCOU.EQ.2))GO  TO  100 
C  STOP  CODE  OUT  OF  RANGE 

IERR=6 

RETURN 

C 

c  initialize  the  translation#  rotation  and  scaling  parameters 

100  U(lf4)=0 

U(2»4)=0 
U(3#4)=0 
00  10  1=1 >3 
DO  10  J=l# 3 
U(I»J)=0.0 
IF(I.EQ.J)U(I»J)=1.0 
10  CONTINUE 

IERRS0 
TX  =  0.0 
TY  =  0.0 
TZ  =  O.G 
RX=0.0 
RYSO.O 
RZ=0,0 
SSX=1 
SSY=1 
SSZ=1 
s,X=1.0 
SY=1.0 
SZ=1.0 
CALL  UPORM 
C 

C  INITIALIZE  THE  TREE  FOLLOWING  STACK 

NEXT  NODE  CURRENT  TOPNOD# *SMBMR* 

NEXT  NODE  DOWN  6NC IBN3=TNME 
IF ( IBN.EQ.0)OO  TO  2040 
NAME1U)=T0PN00 
CLEVEL=1 


fat*  aSSHASi kM 
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1200  FLO ( 0 « 24 , TRSNME) =fcH$TRS 

FL0(24#12»TrtbNMt)=iBH 
C  9  JTX<sTRSi'WE*NAME  1(1):? 

PRINT  3002,TX»TY,T<.,RX,RY,RZ*SX»SY,SZ 
3002  FORMAT ( 1X*5H3Q02  ,9Flu.5) 

CAUL  OPDRM 
C 
C 

C  EXECUTE  USER  SPECIFIED  F'N  AFTER  COINS  QO/rfN  TO  THIS  NODE 

IF(FnDOwN«NE.O)CaU.  FNQOWN 

c 

c  TEST  if  PRESENT  NODE  meets  STOP  CODE  CONDITION 

IF USTPCOD.EQ.l) . AND. (LEVEL. EQ.CLEVEL) )G0  TO  1699 
IF(STPCOU.Nt.2)60  TO  1629 
IF(ATTR*TNME=VAL)S0  TO  1699 
GO  TO  1629 
C 
C 

1699  CONTINUE 

TNME=NAME1U) 

C  ZERO  BYTE  ENDS  PRJMATIVE  SPECIFICATION 

1627  TX=-TX 
TY=-TY 
TZ=-TZ 
RX=-RX 
RY=-RY 
RZ=-RZ 
CALL  UPURM3 

1626  NEXT  NODE  UPsNAMEl <1> 

CLEVEL=CL£VEL-1 
PRINT  5000.NAME1U1 

5000  FORMAT! IX r6H1626  1 A6) 

IF (NAMEl(l) .EG.OJGO  TO  2040 

1628  NEXT  NODE  RIGHT  8NC1BN3 
PRINT  5001, IBN 

5001  FORMAT! IX, 6H1628  ,15) 

IFIIUN.EQ.OJGO  TO  2100 

C 

1629  NAME1 (1)=TNME 

NEXT  NODE  DOWN  BNC IBN3=TNME 
CLEVELSCLEVEL+1 
IF(lBN#NE.O) GO  TO  1200 
1634  NEXT  NODE  UP  BNC IBN3=NAMEi ! 1' 

CLEVEL=CLEVEL-1 
60  TO  1627 
C 
C 

C  FINISHED. 

2040  CONTINUE 

RETURN 


c 

C  CURRENT  node  PROCESSED  f'CF  THE  STACK 

2100  NEXT  NODE  up  BNC10N3  u  NAMEl(l) 

CL£.VEL=CLcVt>_-i 
PRINT  5003* IBM. NAME.1U) 

5003  FORMAI  (1X*6H21O0  » I1-  A6) 

1F(NAML1(1).£CI.O)GO  lw  2040 
FLO (0  *24  *  TRSNME)  =6H“S  TQS 
FLO  (24*12  *TRSM£)=I6N 
1 9  3tx<=trsnme»namf i a  j  =? 

PRINT  300i,TX*TY*TZ,RX,ftY*RZ*SX,Sf ,SZ 
3001  FORMAT (iX*SH3O01  , 9F 1 0 . 5 ) 

ix=-rx 

1Y=-TY 

T2=-T2 

RX=-f*X 

RY=-HY 

RZ=-RZ 

CAUL  UPORwB 

TNMEs-NAMEMl) 

C 

C  EXECUTE  USER  SPECIFIED  Fn  AFTER  MOVING  UP  TO  THIS  NODE 

IF(FNUP.NE.O)CALL  FNUP 
C 

c 

GO  TO  1628 
END 

C******************** »*♦*** ****4*************** ****************************** 

getval 

SUBROUTINE  GETVAL 
LIST  OFF 

C******  CHECK  FOR  ATTRIBUTE  VALUES  ALREADY  STORED  *** 

C******  ip  OLD  VALUES  AkE  PRESENT  THEY  ARE  STORED  IN  'BLOCK* 
integer  V»U,M* I *D*H,C 
INTEGER  BLOCK (50) 

REAL  DAAaI i5U) 

COMMON/EDSAT0/V*U*M(1O) *T(10) *D(10)*H*C(10)*A* I CHAR* ATT 
ALLOW  0 

equivalence  (Block, caaat) 

1F('ATTP.IB**SYMNaM=?)  GO  TO  10 
DO  7717  IMIT1=1,10 
K(INIT1)=6H 
T(INITl)=6h 
0(INI|1)=6H 
C(XNIT1)=6h 
7717  CONTINUE 
V=5H 
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COtiTl'.uE 

C  5u  JolOCi\<=  ' ..  I  I  ib  •  *SYMNA.  .=? 

V  =  BlJCaU) 

U  =  BloCi'  (*;) 

Oc  20  X  =  1*10 
M  ( 1 )  -  BloCa  ( I  *■£ ) 

20  CONTINUE 

uC  30  1*10 

1(1)  L  PlGCMI  +  I^) 

30  CONTINUE 

00  40  I  =  j.  *  lo 
0(1)  =.  aU/cKll+it:) 

•+U  COMT  1,'JUE 

H  =  BLOCK  ( 33 ) 

00  5tr*,  1  -  1*10 
CilKz  DLOCa ( 1  +  33) 

*  =  'DAAAT(s*4) 

50  CC  IT1NJL 

lOu  continue 

r£t  urn 

cno 

0**  «***,,  ******  «****».** »**» *,«***♦*****♦*<  ******»***********************»***»> 

c********** **************** *************** *********** 

C****»  DISPLAYS  BUILDING  PLAN  FROM  TREE  *'■* 

SUBROUTINE  HOUSE 
IMPLICIT  INlEGER'.A-Z) 

INCLUDE  EOSPRM.  LisT 
if.CLUOE  USPKrO,  LIST 
INTEGER  DFvMuFvl) .uFVP.UFVF 
INTEGER  uFb(UFOL.XPN) 

COMMON  /UF/uFV  *OFc  *CFVP*  w<F  VF 
COMMON  /CROOT/Ol  *y2,PLNC'0£  , 

C0MMj^/tDSSTM/SY;-iNuM,SYM,B0L(NUMSYM,,5)*TEMF(NUMSYM»3)»NEWX»NEWY» 

c  symnam.wallst.  *jtrx 
INTEGER  OSPIkEUPN) 
lCMMJiI  /osPTRE/USPThE 

COMMON  /VP/>/TX#VTY»  v  I7.VAX.VRY.VKZ.VSX.VSY.VSZ 
REAL  VTX  *  VT Y , VTZ . VRX . VRY , VPZ  *  VSX *  VSY » VSZ 
logical  ONSFLG  *FuaLL *  F'PEUAL  . FMAKHT  .  FRESNO. FSETVP 
lOMMOIJ  /FLAuS/ONSl Lv » Fb AlL  »  FPEOAL . FMAKHT *  FRESND. FSET VP 
FSlTvP=.FALSl. 

;rx  =  -9u.o 
OSPTRE  ( 1 )  =  FiLNOOE 
orvp=o 
call  DISK 

CALJj  CROC  ,U) 


C*«*. **«,**  *»**,*****,*,»*..«, ,*,«..*,»***♦**»,*»*♦***«»***********#*****♦**** 


non 
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SUBROUTINE  #ALCt;Q 

SET  UP  IN  TABLE  FORM  THE  COORDINATES  OF  ALL  * WALLS'  IN  AN 

object. 

INCLUDE  tDSPRM*HSr 
INTEGER  wALLST(5,*TPL) 

integer  wtpi 

COMMOn/EDSSYM/STMNUM* SYMBOL INUMSYMr  5 2 * TEMP (NUMSYM*  3>  *NEWX,NEWY* 

C  SYMNAM»V*ALLST#V»TP1 
EXTERNAL  TAB* 

c 

integer  flrpln 

COMMON  /CROOT/UUMU)  * FLRPLN 

*TP1=0 

c 

CALL  APYTRE ( FLRPLN *7ABVi*Q*2* 'STYPE' * ' SMALL' ) 

RETURN 

END 

C******************************,t*********************************y***t*,tt»««4 

C**»*  SUBROUTINE  TO  CREATE  GRID  POINTS  ***** 

SUBROUTINE  GrtIDLN 
IMPLICIT  INTEGER <A-Z> 

COMMON/EDSGRD/GR ID 150*2) 

GRID(lrl)  s  0 

'  toP10<l,2>  =  0 

VALUE  =  0 
uELTA  s  33 
UO  1QU  J  =  2*32. 

-  VALUE  s  VALUE  +  DELTA 

'  GRID(u*l)  =  VALUE 

100  GRID(u*2)  =  VALUE 

RETURN 
tND 

C************************* *,****»********* f****,*********,*,**************^, 
C****  SUBROUTINE  TO  ORA*  THE  GRID  ******* 

SUBROUTINE  ORGRIO 

implicit  integer (A-z) 
include  eusprm*  list 
COMMOn/EOSGRO/GK ID < 50  *  2  > 

COMMON/EDSS YM/S YMNUM  *  SYMBOL ( NUMSYm  r  5 ) *  TEMP ( NUMSYfl *  3 ) * NEWXiNCWY » 

C  SYMNAM*hALLST*wTPl 
LOWY  s  100 
lEFTX  =  0 
RIGHT a  •-  1023 
UPY  =  1023 
CALL  INTEN(l) 

UO  10  LOG  =1*31 
KX  =  CRID(LOG*D 
*Y  =  oR10(L0G*2) 

CALL  f OS(KX*LO*Y ) 
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CALL  V£C(KX,OPY) 

CALL  PUS(LEFTX,KY ) 

10  CALL  VEC<RIGHTa,kY) 

CALL  INT£N(2i 
CALL  pOS<0»100) 

CALL  VEC (1023, ICO ) 

RETURN 

END 

C*******  *********************  ********************************  *********9*****, 
C ****** ************** **************** **************** 

c***«*  oraws  triangle  for  symbols  tx.ty  are  center  of  trian6LE** 

SUBROUTINE  1rtI(IX,TY) 

INCLUDE  eosprm,  list 
implicit  integer i a-z ) 

COMMON/EDSS YM/S YMNUM  » S YMtiOL ( NUMSYM , S ) , TEMP  <  NUMS YM , 3  >  t NEMXiNCMY » 

C  SYMNAM*WALLST,wTP1 
CALL  INTEN(O) 

VX  =  TX  -  8 
VY  =  TY  -  8 
CALL  POS(VX,VY) 

CALL  vEC <TX » VY  +  14) 

CALL  VECCYX  +16, VY) 

CALL  VEC ( VX  » VY ) 

CALL  1NTENI2) 

RETURN 

END 

C*******,******#* ************************* *********************************** 

c**************************** ************************ 

C*«***  SUBROUTINE  TO  ORA*  A  CIRCLE  *********** 

C****  CIX  AND  CIY  ARE  THE  CENTER  COORDINATES  ****** 

C****  R  IS  THE  RADIUS  \ND  II  IS  THE  NUMBER  OF  SEGMENTS  *** 

SUBROUTINE  CIKO-L (ClXrCI Y ) 

INCLUDE  EOSPRM,  cIST 
REAL  THETA, ANGLE, n 
INTEGER  R,C1X,CIY,AA,X.'Y,DF 

COMMON/EDSS YM/SYMNUM , SYMBOL ( NUMSYM , 5 ) , TEMP  <  NUMSYM , 3) , NEWX»N£*Y  t 

c  symnam,wallst,wtp: 

CALL  INTEN(O) 

R  =  10 

<"  =  10.0 

’  HET A  =  (360/N<  /6»E'j 

ANGLE  =  THETA 

CALL  P0S(CIX,CI'  +  ’’ 

DO  10  AA  =  1,|2 
X  -  R*SIN( ANGLE) 

Y  -  R*COS( ANGLE) 

CALL  VECIX  +  CIXiY  •  C-.O 
10  ANCLE  -  ANGLE  +  THlTA 

CALL  1N7EN(2> 

RETURN 


fl 

•a 


j 


ENO 

C***«**«********************<<************«**********«*****?*********1"******9* 

c***$  subroutine  to  draw  the  small  tee  for  symbols  *** 
c***«  st-  ■  and  smy  are  The  coordinates  of  the  integsection  *** 

SUBROUTINE  SmTEEISHX#SmY) 

INCLUDE -EOSPRMf  LIST 
INTEGlR  SMX.SMY 

COMMON/EOSS YM/S YMNUM » S YMBOL ( NUMSYM » 5 ) # temp ( NUMS YM » 3 ) » NE«X » NEWT » 

C  iYMNAMf WALLST »*TPI 

CALL  INTEN(O) 

CALL  POSt SMX.SMY) 

CALL  VEC ( SMX-8  . SMY ) 

CALL  pOS(SMX-8»SMY-5) 

CALL  VEC ( SMX-8  *  SMY+5 ) 

CALL  INTEN(2) 

RETURN 

END 

C******1M».J**********«i***********.*****.-**<>#*******************************»,**« 

c**************************************************** 

C«***  SUBROUTINE  TO  DRAW  A  BOX  «** 

C***  N  IS  WlOTH.H  IS  HI&HT.BX  AND  BY  ARE  LONER  LEFT  CORNER  *** 

SUBROUTINE  BOX(N.H.BX.BY) 

INCLUDE  EOSPRM.  LIST 
IMPLICIT  INTEGER <A-2) 

C0MM0N/EDSSYM/SYMNUM.SYMB0LINUMSYM.5) .TEMP(NUMSYM»3> »NEWX.N{WY» 

C  SYMNAM* WALLST »NTPi 

CALL  INTEN(O) 

CALL  POSIBX.BY) 

CALL  VEC<BX+N.8Y> 

CALL  VEC(BX+W»BY+H) 

CALL  VEC(BX.BY+H> 

CALL  VECtBX.BY) 

CALL  INTEN(2) 

RETURN 

ENO 

C**************** )********N*********«"*************************M*********P*<  M 

C**«  SUBROUTINE  TO  DRAW  A  TEE  *** 

C***  TX.TY  ARE  THE  COORDINATES  OF  INTERSECTION  **** 

SUBROUTINE  TEE(TXtTY) 

INCLUDE  EOSPRM.  LIST 
INTEGER  TX.TY 

COMMON/EDSS YM/S YMNUM . SYMBOL ( NUMSYM » 5  >. TEMP ( NUMSYM . 3 ) »  NENX . NENY . 

C  SYMNAM.NALLST.NTP1 
CALL  P0S(?X.TY-5) 

CALL  VECtTX.TV+5) 

CALL  POS( TX.TY) 

CALL  VEC(TX+25.TY) 

RETURN 

ENO 

C**************'*M********»******.**U******»'********«‘****t*''*******<'********** 


'{fgp?tt«  •*•'**'»  «■'  v’  'k.‘«7rfcs^,wT^' 


>T^*svr,,^-vvy7,'’7^H  1  ^i^T^***  r*T&fy~/y  ~  y 
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c****  subroutine  to  draw  a  double  tee  **** 

C****  TTX»TTY  ARE  THE  COORDINATES  OF  INTERSECTION  *** 

SUBROUTINE  TOV£E(TTX*TTY) 

INTEGER  TTXfTTY 
CALL  POS<TTX» TTY-7) 

CALL  VEC<TTX»TTY+7) 

CALL  POS(TTX# TTY-2) 

CALL  VEC(TTX+30r YTY-2) 

CALL  pOS(TTX»TTY+2) 

CALL  VEC(TTX+30»TTY+2) 

RETURN 

END 

C ****** *********>  ******* ***** a********************************************' 

c******************************************************* 

C****  SUBROUTINE  TO  CAPTURE  THE  BRANCH  NUMBER  OF  CURRENT  NODE 
SUBROUTINE  BRANH 

implicit  Integer (A-z) 

COMMON/EOSDA  T/WALNAM #  KKK * BRN#  9RANAM 
lEMPtO  =  'SYSP* 

CALL  ENCODE (NNN) 

WRITe<23»t0ft>?BRN 
FORMAT (12 > 

FLD(24»12*TEMP10)  =  FL0(0«12»NNN) 

URANAM  =  TEMPI 0 

RETURN 

END 

C  *>4c  *  **»4[j*a^*^l*:*l»*»»*#41lJ(**l*^***)*t»*i»J»t4c*4<»*»**»*l^<<**4‘**<'>*=*>1*,>l'<,**4',*I*1^,*I*4f****»*‘|l,*,#»» 

C* ********************************************************* 

SUBROUTINE  PLACE 

r.  SCALES  THE  SYMBOL  COORDINATES  FROM  'SYMBOL*  TO  'TEMPI 

O********  SYMBOL  IS  local  STORAGE  »TEMP  IS  USED  FOR  DISPLAY** 

INCLUDE  EDSPRM»  LIST 
IMPLICIT  INTEGfcR(A-Z) 

REAL  VTX . VTY , VTZ , v RX . VrY , VRZ * VSX » V5Y • VSZ 
COMMON  /VP/vTX# VTY» vTZ» VHX* VRY* VRZ» VSX( VSYr VSZ 
COMMON/tOSSCL/K 

COMMQN/EDSSYM/SYMNUMf SYMBOL (NUMSYM* 5) »TEMP(NUMSYM»3) »NEWX»NEwY* 

C  SYHNAM'WALLST  »*TPi 
DO  10  I  s  1»SYMNUM 

TEMP(I*1)  =  (  ( ( SYMBOL ( l » H-2Sb)/(VTZ*l2UO/2000.0+l) )+256  )*c 
TEHP(I»2)  =  ( ( (SYMBOL ( I »2) -256) /(VTZ* 1200/2000* 0+1)) +256) *2 
TEMP(I#3)  =  SYME0L(I»3) 

RETURN 

END 

C***************************♦**********************************♦*<,******,",,**, 

C**«*»  S  'ECIFIES  THE  FIRST  4  CHARACTERS  of  symbol  names  *** 

SUBROUTINE  NAMELO 

integer  type 

COMMON/EOSNME/T  YPE ( SO , 3) < MAP ( 50 )  i P ICK 
TYPE(l»l>=»PTWw» 
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HEAL  a 

INTEGER  V.U#«i*  I  #O.H»C 

COMhOi  i/EDiATd/V  tUrM(10)»T(10)*D(10)rH»C(1.0) » A» ICHAR 
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DATA  y.U»M(l).M2>,MlJ).M(4)»M(5>,H<6)»M<7>»M<8).M(9).H(10). 

C  T(1).T(2)»T(3)»T(4)»T(5)»T(6)»T(7)*T(8) »T(9) .T(10) * 

C  0(1) *0(2) .0(3)»0(4>.D(5).D(6).0(7).0<8)»D(9).D(10)» 

C  h.C(l).C(2).C(3).C'(4).C(5)rC(6).C(7).C(8) »C(9)  .C(10) .A/ 

*  44*0050505050505/ 

ENQ 

C ************** ************************************************************ 

c******  The  routine  That  creates  display  of  all  service  symbols  *** 
subroutine  sersym 

C****  GENERATOR 

CALL  CIRCLE (706 *705) 

CALL  wRITAT(706.701. *GA* ) 

C***  MOTOR  ******* 

CALL  CIRCLE (706. 673) 

CALL  wRITAT(706.667.*Ma») 

C**«*  METER  ***** 

CALL  CIRCLE (706. 641) 

CALL  BOX (20. 20. 696. 631) 

CALL  wRITAT(701»632.»Ma«) 

C****  THERMOSTAT  **** 

CALL  B0X(16. 16.690.601) 

CALL  wRIT AT (695.600. •  Ta*  ) 

CALL  SMTEE(690»609) 

C***  ANTICIPATOR  **** 

CALL  0OX(16. 16.690.569) 

CALL  wRITaT (693.572. • Aa* ) 

CALL  SMTEE(690.577) 

C***  PANEL  **** 

CALL  BOX (20. 10 .696 .540) 

C****  CONTROL  PANEL  **** 

CALL  u0X(20»10» 696.508) 

CALL  INTEN(O) 

CALL  POS(696»508) 

CALL  VEC(716.518) 

CALL  pOS( 716. 500) 

CALL  v£C(696.518) 

CALL  INTEN(2) 

C****  DISCONNECT  **** 

CALL  BOX (15. 8. 696. 477) 

CALL  INTEN(O) 

CALL  P0S(711.481) 

CALL  v£C(716.481) 

CALL  VEC(716.4fl9) 

CALL  INTEN(2) 

C***  TRANSFORMER  **** 

CALL  t)OX (20. 10.6'  t  .453) 

RETURN 

c.ND 

C****  DISPLAY'S  ALL  LIGHTING  ‘ " MBOlS  *** 

SUBROUTINE  LIT61M 
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INCLUOE  E05PRM#  LIST 

COMMON/EOSSYM/SYMNUM » SYMBOL ( NUMSYM .  5)  #  TEMP (NUMSYM#  3) • NEWX.NEWY# 
C  SYMNAM.WALLST.WTP1 
C***  SURFACE  FLOURESCENT  mm 

CALL  BOX ( 40  #  20  #  563 » 754 ) 

CALL  CIRCLE (573 #764) 

C****  RECESSED  FLOURESENT  **** 

CALL  BOX (40 #20 #563# 722) 

CALL  CIRCLE(573#732) 
c***  surface  incandescent  ***• 

CALL  CIRCLE (530 #700) 

CALL  CIRCLE (583# 700) 

C***  RECESSED  INCANDESCENT  *** 

CALL  CIRCLE (530 #668) 

CALL  CIRCLE (583 #668) 

C***  PULL  SWITCH  *** 

CALL  CIRCLE (530#636) 

CALL  CIRCLE (5B3»63t>) 

CALL  SUP 

CALL  wR*.TAT (596»666»  *NA* ) 

CALL  wRITAT(596#624#»PSa») 

CALL  wRITAT (583.722#  ’Fa’  ) 

CALL  *RiTAT(596»683.,MA') 

CALL  wRITAT(583#754,*Ga») 

CALL  LCHAR 

C****»  SWITCHES  *****  **  LIGHT  ***• 

CALL  LCHAR 

C****  SINGLE  POLE  *******  7 

CALL  TEE (566 #559) 

CALL  WRITAT(576#553#»Sa») 

C****  DOUBLE  POLE  ***** 

CALL  1  EE (566. 527) 

CALL  wRITAT(576#521#»Sa») 

C***  THREE  WAY  ***** 

CALL  TEE(566»495) 

CALL  *RITAT(576#489# *SA' ) 

C****«  FOUR  WAY  ****** 

CALL  TEE(566#463) 

CALL  wRITAT  (576»457»  ’Sa’  ) 

C****  WEATHERPROOF  ****** 

CALL  TEE (566 #431) 

CALL  WRITAT(576»425#«Sa*) 

C****  PILOT  LIGHT  ***** 

CALL  TEE (566. 399) 

CALL  WRITAT(576»393#«Sa') 

C***»  TWQ-SPEEo  ***** 

CALL  TEE(566#367) 

CALL  WRIT AT (576 #361# ’Sa'  ) 

C****  fHREE-SPEED  ***** 

CALL  TEE (566 #335) 
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CALL  WRITAT (576*329.  'Sa*  ; 

C***»  AUTO  DOOR  **** 

CALL  TEE(566,303) 

CALL  fcRITAT  (57o,297, '  Sa* 

C***»*  W/LONV.  OUTLET  **** 

CALL  rtRITAT (576*2ol,  *Sa* ) 

C***»  EXPlOSIj..  PROOF  ♦  *♦* 

CALL  r£E<566,239) 

CALL  *KITAT(576,231,*Sa') 

C***  KET  OFERATED  ***** 

CALL  TEE (566.207) 

CALL  WRITAT (576.201. 'Si* ) 

C+**  PHOTO  CELL**** 

CALL  TEE(56b.l7b> 

CALL  wKITAT (576*169. 'SA* ) 

C***»  SUBSCRIPTS  FOR  LIuHT  SWITCHES  *** 

CALL  SU6 

CALL  WRITAT (589,311  *  *24' ) 

CALL  wKITAT (509.460. '3A1 ) 

CALL  wRITAT(b89,447,'4A’> 

CALL  kRITAT (569.415. 'WPA* ) 

CALL  WRITAT <589.383, *Pa») 

CALL  WRITAT  '.589.351 »  *2SPa'  j 
CALL  wRITATi589,319,»3SPa'5 
CALL  WRITAT (589.287. ’Da’ ) 

CALL  kRITAT (539.223. ’EXA’ ) 

CALL  WRITAT (589. 191. 'KA* ) 

CALL  WRITAT <589.165. 'OA' ) 

RETURN 

END 

C*«t»*'l‘***»****.**«******************«  +  »********«******»********«**«**«***«#*4 

c***»*  DISPLAYS  POwER  SYMBOLS  **** 

SUBROoT INt  POWSYM 
INCLUDE  EUSPKM.  LIST 

COMMON/EDSSYM/SYMNUM, SYMBOL ;NUMSYM.5) . TEMP ( NUMSYM . 3 ) .NEWX.NEWV. 

C  SYMNAM.WALLSr.wTPl 
C******TwC  WIRE 

CALL  CIRCLE (640*070) 

CALL  T0TEE(628.870) 

C  ***W£ATHERPROOF  **** 

CALL  CIRCLE ( 640 . 840 ) 

CALL  TOTEE(628#8H0) 

CALL  SUB 

CALL  WRITAT (oSJ. 628, *WPa*) 

C****tXPLOSXON  PROOf  **** 

CALL  ClRCLE(64u.606) 

CALL  TOTCF ( 626 .800 
CALL  »,><  (T  Ai  <653*794 ,  -vA‘i ' ) 

C***  GROUNDED  **«•* 

CALL  (  ( Lvl.E  *  Os  )  , 7  ' 
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CALL  10TEU628./74) 

CALL  wRITAT(653.762.'Ga') 
C******  CLOCK  **** 

CALL  CIRClE(o4U*744) 

CALL  T0TEE1626.744) 

CALL  WRITAT(6S3*732. *Ca' ) 

C****  THREE  *lh£  *** 

Call  CIRCLE(64Q*712) 

C*****  SPECIAL  PURPOSE  **** 

CALL  CIRCLE (640 *680) 

CALL  TRI (640*663) 

C****  f-  LouK******* 

CALL  C IRCLL  ( 640 .  O-i  d ) 

CALL  oOT (o4u*6S3) 

c****»  switches-  *****  *♦  fo-wlr  **** 

CALL  k.CHAK 

C****  SINGLE  POLL  -  ♦***-»». 

CALL  TEI- (626-.5LS) 

CALL  hRnAT(oCy*SS3*‘S,.t) 

Co***  ooubLE  Pole  ***** 

CALL  TEE (628. 627) 

CALL  hRITaT (639*521* 'Sa ' ) 

THREE  WAT  ***** 

CALL  TEE (628, 496) 

CALL  nKITAT (639*489* '5a’ ) 
-'*♦***  FOUR  WAY  ****** 

CALL  TEE (628.463) 

CALL  wRITAT (639*487* ’Sa’ ) 

C****  WEATHERPROOF  ****** 

CALL  TEE (626 *4 31) 

CALL  viRI  l'AT(639»426*  *Sa  '  ) 

C>***  PILOT  LIGHT  ***** 

CALL  TEE(628* 399) 

CALL  WRlTAT(b39*393* ’Sa" ! 

C****  TfO-SPEEu  ***** 

CALL  TE£(628*367) 

CALL  wR I TAT (639 *361  *  *Sa*  > 

Co***  three-speed  ***** 

CALL  TEE(626*33oJ 

CALL  WRITAT (639*329. 'Sa' ) 

..-**«  AG  1 0  DOOR  *  +  ** 

CALL  TEE(o28*3u3> 

CALL  ....  ITaT  (634*297. 'Sa' ■ 
C«***«  w/COHV,  OoTucT  **** 

CALL  ,)HITAT(o39*26i.  *S/-*  ! 

0****  Ext  lOSIOH  f-RO'.-r  **«* 

CALL  TEl(. 26.239) 

caLL  .i-(I^AT  <u3 .»  20i .’..a') 

•-***  key  operated  ***». 

CALL  TLtr 428:0  /) 


Call  „r1TAT(6.59*2ujI,'Sa') 

C*»*  rut/TO  CELL**** 

CALL  rEE(62a*175J 
t ALL  kiKITAT ( 639 » 169 1  'Sa*  ) 

C«*<v  S'JosCKIPTS  FOR  PO<*tK  SWITCHES  *** 

CALL  SUB 

CALL  ,.RlTAT(66l#61ii'2A') 

CALL  hRITAT (661  »<*79»  *  3a*  ) 

CALL  liRITAT  (6Slr4A  /»  *4a*  ) 

CALL  nKITAT  (661'<tl6«  'WPa'  I 
CALL  r.RlTA  T  (661  »3d.J#  'Pa'  > 

CALL  rtRl'.'T  lo5lr 351  >  '2SPa*  ) 

CALL  *RlTAT(6blf3l9, *3SPa' ) 

CALL  *,RITAT  (661 r 267 r '  UA  * ) 

CALL  WRITAT  (651  >22-5. 'EXa'J 
CALL  WRITAT (661rl91 » 'Ka* ) 

CALL  »RITAT(651»l7u, <Oa') 

RETURN 

tND 

C*«-r********************** ********** ***********«,****************************« 
C *»**♦»<**** ******* ******* v *  ************ ********** 

subroutine  restor 

C  RESTORES  ThE  program  AND  DISPLAY  ON  'RETURN*  COMMAND 

INCLUuE  EOSPRM,  LIST 

implicit  integer (A-z) 

COMMON/EOSS  YM/S YMNUM  #  SYMBOL  ( NUMS YM  •  5 )  •  TEMP  ( NUMSYM 1 3 )  t  NEWX  ,  NEW Y  t 
C  SYMNAM»WAU,ST»WTP1 
CALL  nQUSE 
CALL  INTENU) 

CALL  DRGRID 
CALL  INTEN(O) 

CALL  REGEN 

CALL  wKlTAT  (5U  »6ll  r 'MOVE A ' ) 

CALL  wRITAT(50,20»»DtLETEA') 

CALL  mESAGE 
CALL  SENDF 

return 

END 

C* *************** ******.,*** ******* ***** *************************************< 

SUBROUTINE  WHICH  UX » WY » $ » INDEX ) 

C****»  SUuROUTINE  TO  DETERMINE  WHICH  SYMBOL  WAS  POINTED  AT  ***** 

INCLUuE  EUSPKM.LIST 
IMPLICIT  IN IEGER ( A*  £) 

COMMON/EOSSYM/sV  )UM  •  S  Y  MijOl  ( NUMSYM » 5  > » TEMP  ( NUMS YM  f  3 ) » NEWX  r  NEW  Y » 

C  aYMNAH«i.ALLS.  :  -7<  1 

REAL  VfAfvTY.v.2.  i>X > V« Y . VRZ« VSX t VSY f VS2 
(-O.-IMOh  /9:-V.T<»vTY»rfTZ  Vmx» VPY , VRZt VSX* VSYr VSZ 
m'  -  i.:  -  16 

wY  i  i,  i  -  IS 

vTOXi  =  ((CVa.  •>)»  •'.'/*  1200/2000*1)  >+256 
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YCOMi  =  ( ( (KY/2)-256)*( VTZ*J200/2000+l) >+256 
xX  =  MX  ♦  30 

*Y  =  xY  +  30 

XC0H2  S  ( ( (WX/2)-256)*(VTZ*1200/2000+l) )+256 
YC0M2  s  ( ( (WY/2)-256)*(VTZ»1200/2000*l) )+256 
UO  100  1  =  lfSYMNUM 

IF  ( ( ( SYMBOL (1*1)  »GE.  XCOM1)  .AND.  (SYMBOLC I » 1,  J  ,L£.  XC0M2)) 

C  .AND.  { (SYMBOLCI *2)  .GE.  YCOM1)  .AND.  (SYMB0L(I*2>  .LE.  YC0M2 
C  )))  GO  TO  125 

100  CONTINUE 

RETURN  3 
125  INDEX  =  I 

RETURN 
END 

SUBROUTINE  GRIOPTUX'IY) 

C***  SUBROUTINE  TO  SELECT  CLOSEST  GRIO  INTERSECTION  *** 

INCLUDE  EOSPRM.LIST 
REAL  EPDIS 

INTEGER  XSCOPi #  XSC0P2  *  YSCOP1 r  YSCOP2 

integer  ick2),ic2(2),wtpi,wallstc5»wTpd 

RE AL  VTX • VT  Y , VTZ  »  VRX  r  Vr Y , VR  Z , VSX  »  VSY . VSZ 
COMMON  / VP/ VTX #  VTY , vTZ , VRX » VRY , VRZ , VSX . VSY » VSZ 
REAL  RWaLLT(5»WTPL) 

COMMON/EDSSCL/K 

COMMOm/EOSDAT/WALNAM  f  KKK » BRN  f  BRANAM 
INTEGER  XALNAM#BRANAM.BRN 

COMMON/EDSSYM/SYMNUM # SYMBOL ( NUMSYM, 5 ) #TEMP(NUMSYM»S>  *NEKX»NEiY 
C  SYMNAM»WALLST»WTP1 

EQUIVALENCE  (WALLST.RWALLT) 

logical  proxmy 

EPDIS  =  2000.0 
DO  100  I  S  1»WTP1 

XSCOPI  =(((RWALLT(2.I)-256)/(VTZ*1200. 0/2000,0*1) >4256) *2 
YSCOPl  s( ( (RWALLT(3r I) -256)/ (VTZ*1200, 0/2000, 0+1) )+256)*2 
XSC0P2  =(((RWALLT(<*iI)-256)/<VTZ*12G0. 0/2000,0*1) >+256>*« 
YSC0P2  s( ( (RWALLT(5> I 1-256} /(VTZ+1200. 0/2000.0+1) )+256)*2 
ICICI)  =  XSCOPI 
IC1C2)  sYSCOPi 
IC2C1)  =  XSC0P2 
1C2C2)  =  YSC0P2 

IF (PROXMY ( IX» I Y « IC1» IC2) )  60  TO  200 
100  CONTINUE 

GO  TG  250 
200  KKK  =  I 

kALNAM  =  WALLS T ( 1 » I  > 

IF (RMaLLT <2» I) .E9.RXALLT (4# I ) >00  TO  220 
C  TWO  Y«S  ARE  EQUAL 

NEXX  s  i  ( ( IX/2)-256i  *(  V'i  Z+120 0/2000+1)  )+256 
NEWYsRfe'ALLT (3»  I) 

GO  TO  300 


■t  •nw’&rrrz? 
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C  TWO  X«S  ARE  EUUAl 

220  CONI  INUE 

NtwX=K*ALLT(2»i) 

wEWY  =( <  <lY/2)-25t>)*<VT24l200/2000U)  >*256 
GC  TO  300 

250  nALNAM  =  ♦EKkOK' 

300  CONTINUE 

RETURN 
fcNO 

c***«» ************>*««*****«,**,********** *«*******************«******+?***»< 

C****'  PROVIDES  name  FOR  SYMBOL  TYPE - INCL'  DES  4  FIXED  CHARACTERS 

c  LEf-T  justified  and  2  numerals  right  justified 

C  NUMERALS  SPECIFY  PECUUaR  INSTANCE  OF  SYMBOL  TYPE  #* 

SUBROUTINE  ATTNAM 
1NCLJUE  EUSPRM.  LIST 
IMPLICIT  INTEGER <A-Z) 

COMMOh/EDSS Y  M/S Y MNUM  t SYMBOL ( NUMS YM , S ) *  TEMP (NUMS YM#  3) # NEWX »NEWY < 

C  SYMNAMrWALLSTfWTPl 

COMMOi./EOSNrlE/TYPE  ( SU ,  3)  ,  MAP  ( 50 )  •  PICK 
DEFINE  NAME l X )  s  TYPE ( I  *  I J 
NUMb  r.  MAi-IPICk) 

NUMEc-R  =  f  rPt(NUMo»2) 

TEMPI  =  NA.V.Et  MAP  (PICK)  ) 

CALL  lNCODE (KKK) 

WRITE (23t  lfaOO )  rNUp.bER 
ItiUO  FcRMA  i  ( 12) 

FLU(2C»12»  TEMPI )=  rL0(0f 12.KKK ) 

SYMNAM  =  TEMPI 
RETUKi, 

END 

0*****************#****$*** ********* ************************ 

SIJOROUT  If  IE  L I TEbT < LX » L Y *RX . UY » CX  CY ) 

C  •>*»****  CXfCY  ARE  COORDINATES  OF  TAPLET  STYLUS 

C  CHECKS  FOR  A  HIT  BETWEEN  JLX-LEFT  XjTLY-LOW  Y» 

c  srx-right  x»:uy-uprer  v 

c  cFLAG  SET  TO  I  FOR  A  HIT 

implicit  integer^-;- > 
cOMMON/ELScBT/cEi  •.» 

LFLAG  =  i> 

IFUCCX  .GE.  LX)  .aEJ«  (CX  .LE.  RX>)  .AND. 

L  ((CY  .UE.  LY )  ,«NO.  (CY  .LF.  UY)>) 

C  LFLAG  =  1 
RETURN 

C*#***« ************ ******************************* *************************** 
c  ******  DISPLAYS  IiiE  SY.loOcS  FROM  •T*.Mf» 

C  TF.MP(KK.o)  CONTAINS  MASTtR  SYMBOL  TYPE  *** 

SUuROuTINE  REGtN 

<  REGENERATES  T. It  'laPLAY  OF  SYMBOLS  FROM  TEMP 

(NCLUGc.  E DSPRi’w  UiaT 
IMPLICIT  iNiCGERf.W) 


i 


l 

1 
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COMMON/EOSSYM/SYMNUM#  SYMBOL ( HUMS YM» b ) »TEMP(NUMSYM*3> *NEWX»NEWY» 
C  SYMNAMr WALLST»  WTP1 

IF(SYMNUM.EQ.  0)  60  TO  U't 
KK  =  0 

LT  KK  =  KK  +  1 

IF (KK  .GT.  SYMNUM)  60  TO  110 
CALL  lCHAH 
00  5S  II  =  1» 39 

IF(TEhP(KK»3)  .EG.  II)  60  TO  (J »2.3»4»5»6»7*8»9,10»H*12*13* 

C  l4»15,16tl7,l8»19<20»2l,2C>23r24r25,26»27»28»29» 

C  30  r  31  r  32 33 » 34  r  35 »  36  #  37 » 38 )  » 1 1 

55  CONTINUE 

C  *******  TWO  WIRE  ****** 

t  CALL  CIRCLE(TEMp(KK.l)fTEMP(KKf2)> 

CALL  T  OTEE ( TEMP { KK , 1 ) - U , TEMP ( KK , 2 ) ) 

GO  TO  100 

C  *******  WEATHERPROOF  ****** 

?.  CALL  CIRCL£(T£Mp (KKr 1 )  #  TtMP(KK *2 ) ) 

C ALL  T  OTEE ( T^MP ( KK  *  1 ) -12 . TEMP  (  KK  1 2 ) ) 

CALL  SUn 

CALL  hRiTAT(TEMP(KK,l)+13#TCMP{KK»2)-12»*WPA*) 

GO  TO  100 

C  *******  EXPLOSION  PROOF  ♦*-,*** 

3  CALL  ClRCLE(T£MP(KK»l)*TfcMP<KK.21> 

CALL  TOTEt ( TEMP ( KK » 1 , -12 , TEMP ( KK  1 2) ) 

CALL  SUB 

CALL  WRITAT  ( TEMPI  KK»1)-M3»  TEMPI  KK»2)-12* *EXa*  > 

GO  TO  100 

C  *******  GROUNDED  ****** 

4  CALL  CIRCLEITEMPIKK.l) *TEMP!KK»2) ) 

CALL  TOTEE ( TEMP (KK » 1 > -12  #  TEMP ( KK » 2  > ) 

CALL  SUB 

CALL  WRITAT(T£MP(KKfl>+13.TEMP<FK%2)“12»*6A*> 

GO  TO  100 

C  *******  CLOCK  ****** 

5  CALL  ClRCLE(TEMP(KKrl) »TEMP(KK»2) ) 

CALL  TOTEE (TEMP ( KK » 1 ) -12 » TE  MP ( XK » 2 ) ) 

CALL  SU8 

CALL  *RI T AT (TEMP (KK* 1)+13» TEMP (KK f2)-12r ’Ca’ ) 

GO  TO  100 

c  *******  three  wire  ****** 

*1  CALL  CIRCLE(TEMP(KK»l)tTtMr-(KK»2)) 

GO  TO  100 

C  *******  SPECIAL  PURPOSE  ****** 

7  CALL  CIRCLE  (TEMPI Ki>,  *  1 )  f  TEMP  (KK#?  / ) 

CALL  TK I ( TEMP ( KK  > 1 » , TEMP (KK » 2 )  +  i I 
GO  TO  li  0 

f  *.<■»****  FLOOR  ****** 

8  CALL  CIRCLE  (TEMftKiOl)  »TEMP(KK»2>  ) 

CAU.  i,OT(Ti.HP(KK.l)  ,T?.MfJ(i<K.2)+4)  • 


oO  TO  100 

c  *******  single  pole  ****** 

T>  CALL  TEE(TEMP(kK,1)-10#T£MP(KK*2>) 

CALL  wR ITAT ( TEMP { KK 1 1 ) +1 » TEMP ( KK » 2 ) -6 » • S A  *  > 
oO  TO  100 

C  *******  DOUBLE  POLE  ****** 

10  CALL  J EES  TEMP (KK*1)-10# TEMP (KK#2) ) 

CALL  WRIT AT ( TEMP ( KK , 1 ) +1 1 TEMP (KK  * 2) -6 1 » SA ' > 

CALL  SUB 

CALL  *RITAY(T£MP(KK.1)+13#TEMP(KK»2)-13»*2A»> 
oO  TO  100 

C~ *******  THREE  WAY  ****** 

11  call  tee(TEmp(kk»u-io»iempikk.2)) 

CALL  WRITAT(TEMP(KK,1) H»TEMP(KK»2)“6»'Sa») 

CALL  SUB 

CALL  nRI T AT l TEMP ( KK  *  1 ) +13  *  TEMP ( KK » 2 1-13  f  *  3A ' > 

GO  TO  100 

C  *******  FOUh,  WAY  ****** 

12  CALL  TEL  (TEMP  (isKfl)-lCrTEKP(KKr2}) 

CALL  wKITA! (TEMp(KK,l)+l»T'MP(KKf2)“6f«SA») 

CALL  SUB 

CALL  wRHAT(TEMP(KK»l)+13»TEMP(KK,2)-13f »4a*> 

GO  TO  100 

C  *******  WEATHER  PROOOF  ****** 

13  CALL  TcE(TCMP<KK.1)-10»TEMP(KK»2J> 

CALL  wKITAT(TEMP(KK*l)+l,TEMP(KKj2)-6r*SA*> 

CALL  SUO 

CALL  0RlTAT(TEMP(KK*l)+13»TEMP(KKr2)-13»»WPA») 
GO  TO  1U0 

C  *******  PlLoT  LIGHT  ****** 

14  CALL  TEE(TEMP(KK»l)-10»T£MP(KKf2) ) 

CALL  i.RlTAT  ( TEMP  (KK ,  1 )  +1 » TEMP  ( KK  *  2 )  -6 1 '  Sa  • ) 

CALL  SUB 

CALL  t,RITAT(TEMP(KK,l)+13»TEMP(KKf2)-l3»*PA*> 
oO  Jo  luO 

C  *******  TWO  SPEED  ****** 

15  GALL  TEE ( TEMP ( KK » 1 )-10»TEMP (KK»2) ) 

GALL  wRlTAT(TEMP(KKfl)+l.TEMP(KKf2)-6»*SA») 

CALL  SUB 

GALL  „RITAT( rEMP(KK»l)+13»TEMP(KK»2)-13»  *2SPA*) 
oO  TO  100 

C  *******  THRtE  SPCEb  ****** 

lo  CALL  TtL ( JEMPtKK ( 1 ) -10  » TEMP (KK 1 2) ) 

GALL  viRITAT S'lcMP (Ki\*  1 )  +1»T£MP(KK*2) -6>  *Sa’> 

CALL  SUb 

CALL  .IrtlTAT  (lLMP(KN»l)-t  i  3* TEMP (KK r 2> -13* « 3SPA* > 
GO  TO  100 

C  *******  AUTo  UOuk  ****** 

1.7  CALL  1LL(  H  Ml'UKrD-lO* ie>P(KK,2>  I 

gaLL  UK  I T  AT  (  ftMP(e.rv  *!)+! »  Tl«P(KK»2)*-6»  »Sa*) 
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CALL  bUO 

CALL  t/KlTA  f  (  TfcMP  (Kr>  #  1 )  +1J«  TEMP (KK  »2)“13»  •  DA  *  > 
60  TO  XOO 

C  *******  W/CvNV.  OuTLlT  ****** 

la  CaLL  MKlTAT(TEMP(i<lK»l>*.l,TEi':P(M'>»2)-6»«SA‘) 

CC  To  100 

c  *******  EXPLOSION  proof  *♦**»* 

19  CALL  TEL  (T  EMP  (kin  1 1 )  -10*TEKF (XK»2) ) 

CALL  „KITAT (  rEf'iPIHK »1)  +1  »TEMP<KK* 2)_6#  •  Sa*  ) 
CALL  SUG 

CALL  1/RITaT^  Tc.MP(Kiwl)  +  l.J#T£MP(KKr2>“13»  'EXA*  > 
60  TO  100 

c  *******  key  operated  ****** 

20  CALL  TEE ( TEMP <KK» 1)-10» TEMP (KK*2) ) 

CALL  .;nlTATnEMP(KK,l)*lfTEMP(XK#2>-6ftSA’> 
CALL  SOB 

CALL  WKITaT  !  TEMP  (KK»1)+13«  TEMP  <KK,2>-13» 'Ka* > 
60  TO  100 

C  *******  PHOTOCELL  ****** 

21  CALL  1  tc.  (  TEMP  (KK»  1  )-iOr  TEMP  (KK  >2) ) 

CALL  aIUTAT  ( TEMP (KK » 1  )+l » TEMP  (i\K  1 2)”6»  *SA’ ) 
CALL  bUb 

CALL  „HITAT( rEMP(Ki\»l)+13fTEMP(KK»2)~18»»0A*> 
00  TO  U'C 

C  *******  GE^cKAfuN  ****** 

22  CALL  CIRCLE (TEMP(KK*1) »TtMP(KKr2) ) 

CALL  wRITAT ( TEMP(KK» TEMP (KKi2)-6»  »GA*  > 
oO  TO  100 

C  *******  MOTOR  ****** 

23  CALL  CIRCLE ( TEMP (kK»1) r TEMP(KKfH) ) 

CALL  „RI T AT ( TEMP ( KK » 1 ) -b » TLMP ( KK » 2 ) -6 » *  M A  *  J 
C  *******  METt-R  ****** 

24  CALL  CIRCLE(TEMP(KK#1)»TEMP(KK*2>) 

CALL  uOXl20#20fTE('P(KK*l>-lG»TEMP(KK»2)-10J 
CALL  ft R I TAT ( I EMP ( KK » 1 > -5 1 TEMP ( KK » 2 ) -6 1 • MA « ) 

GO  TO  100 

C  *******  THERMOS TA(  ****** 

2b  CALL  aOX(16»16. I;:>  P  (KK»  1 ) -8*  TEMP  (KK » 2) -8> 

CALL  i.RIT  A 1  IT  EMPIKK  *  TEMPI  KK » 2)  “6»  *Ta*> 

CALL  ‘jMTEE  ( T EMP  (KK  *  1 ) -8 » TEMP  ( KK » 2 ) ) 
oG  TO  100 

C  *******  ANTlCIPtiOu  ****** 

26  CmLL  bOX(lt3»lo»  it.Mr{KK»l)-a»TEMP(KK»2)-8) 

CALL  „R.'  TAT  (TEMPIKn#  ll-5fT£HP(KK»2)-6»  »TA*> 
CALL  SMT  fi _ (7  t.MP  (KK » 1 ) ”8  r  TEMP (KK*  2)  > 

GO  TO  100 

C  •«■**»*<♦  PAuLu  ****** 

27  CmLL  60 \  (2o  *  10  *  TE’;P  (KK  *  1 ) -10  *TEMP (KK  >2) -5) 

GO  TO  100 

C  ♦♦  CONTROL  PANE- 


*■>•«*  ** 
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20  CALL  bOX(20  *  10 »  TEMP (KK  t 1 ) “1U»TEMP (KK»2)“5) 

CALL  PCS  ( TEMP  ( KK » 1 )  -10 1  TEMP  ( KK  tZ)  -S>) 

CALL  vEC ( TEMP ( kK  » 1 ) +10 ► TEMP ( KK  *  2 ) ♦ 5 ) 

call  pos ( temp ( kk , i ) +10 »  temp ( kk  #  2 ) -5  > 

CALL  VEC ( TEMP  ( KK  1 1 > -10 • TEMP ( KK  1 2) +5) 

GO  TO  100 

c  *******  DISCONNECT  ****** 

29  CALL  UOX ( 15 / 3  r  TEMP { KK » 1 ) -7  *  TEMP (KK  »2 ) "4 ) 

GO  TO  ICO 

c  *******  transformer  ****** 

30  CALL  BOX(20flOrTEMP(KK»l)-10*TEMP(KK»2)-5) 

GO  TO  100 

C  *******  SUKi-ACE  FLOlIRLSCc.NT***** 

Cl  CALL  bOx ( 40 • 20 » TEMP (KK » 1 ) -20  ?TEMP (KK  ?  2)-10) 

CALL  CIRCLE ( TEMP (KK > 1 ) -10  »TEMP<KK»  2) ) 

GO  To  100 

C  *******RECESSED  FLOURtSCENT  ********* 

32  CALL  BOX(40,20*T£MP(KK,1>-20»TEMP<KK»2>-10) 

CALL  CIRCLE<rEMHKKh*l)-lO»TEMP(KK»2>) 

GO  TO  100 

r  *******RESURf  ACE  INCANDESCENT  ******* 

33  CALL  CIRCLE  ( TEMP (K!<#1)  rTEMP(KK»2)  J 
CALL  S'JB 

CALL  », f- 1 T A  T  *  iEMP(kK*1 )  +13»TEMP(KKr2)~l2»  ’MA* ) 
GO  T.)  if.Q 

c  *******REREctssi.u  incandescent******* 

34  CALL  CIRCLE (TEMPtKK. 1) iTEMPIKK, 2) ) 

CALL  SUb 

CALL  wRITAT (TEMPlKKt l)+13*TEMP(KKf2)"l2»  *N6* ) 
GO  TO  100 

C  ********»PULL  SWlTCh  ************* 

35  CALL  CIRCLE (TEMP(KK*l) *T£MP(KK»2) ) 

CALL  SUD 

CALL  WRlTAT C TEMP (KK  1 1 ) +13»  TEMP (KK 1 2 ) -12 1 * PSA  * ) 
GO  TO  100 

c********  SURFACE  INCANDESCENT  ********** 

36  CALL  ClRCLE(TEMP(KK»l)rTEMP(KK»2)) 

GO  TO  100 

C********  ?.ECt.SSED  INCANDESCENT  ********* 

37  CALL  CIRCLE(TEMP(XK»1)»TEMP(KK*2>) 

GO  TO  100 

c *♦•$ * ****  puLi  switch  t  ********* 

3fl  CALL  CIRCLE ( TEMP(KK»1) »TEMP(KKf 2) ) 

CALL  SUD 

CALL  wRITAT (T£MP(KK>l)+13fTEMP(KK»2)-12r *PSA*) 
ICO  Gu  TO  5C 

110  CONTINUE 

call  (.char 

rtC  TURN 
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c***************************************************#***************^******** 

C*e ************** 4  ********«**********.<******* v*********** 

DISP  AYS  APPRO IaTE  SCALE  MESSAGE  *** 

SU1  ROUTINE  MESAGE 
IMPLICIT  INTEGER (A-Z) 

INCLUDE  edsprm,  list 
common/eosscl/k 

COMMOn/EDSS YM/SYMNUM * S YMSOI .  { NUMS YM , 5 >  * TEMP ( NUMSYM » S> » NEWX  »NEWY » 

C  SYMNAM* WALlST* WTP1 
CALL  INTENIO! 

TFC  ,NE.  4)  <>(’  TO 

CALL  wRITAT ‘ 30(1.  UC.’C  'LE:i/»  *NCH=  1  FOOTaO 

CALL  wRITAT (300  * tU .  ‘SPACING  BETWEEN  GRIDS  EQUALS  16  INCHESA*) 

GO  TO  f4ft 

20  IF (K  ,NE.  8 J  GO  l 0  30 

CALL  wRITAT (300.  8  i . ‘SCALE S i/8  INCHs  1  FOOTa'J 

CALL  wRITAT (30U*tr)> 'SPACING  BETWEEN  GRIDS  EQUALS  32  INCHESA') 

GO  TO  40 

30  CALL  wRITAi (300*  80» 'SCALE: 1/16  INCH  =  )  FOOTa») 

CALL  wRITAT (300*60. 'SPACING  BETWEEN  GRIDS  EQUALS  64  INCHESa’' 

40  CONTINUE 

CALL  INTEH12) 

RETURN 

END 

C*****************  •».*.>.•* *♦**-*,;*  *a**¥****************v***************>Mi******« 
C*****  CHECKS  STVi.’.fi  PROXIMITY  TO  A  WALL  *** 

C  ELLIPSE  I.  l  ZO -  LONG  AXIi-  ALONG  WA.  .*fH0RT  PERPENDICULAR 

LOGICAL  FUNCTION  PROXM' f  *XP* I YP*  IC1  *  IC2.) 

C  TEST  FOR  POINT  IN  PROXIMITY  WITH  A  LINE 

C 

InTEGLR  1XP*IYP*IC1(2),IC2(2> 

C 

DIMENSIONC1 (2) *C2(2) 

»=4. 

EPLISN=10,0 
PK0XMY=. FALSE. 

C 

XP^IXP 

YPSIYP 

cmisiruu 

Cl (2)~IC1 (2) 

C2(1)=IC2U) 

C2(2)=IC2<?.i 

C 

IF(AoS(C1'*)-n.2H*  i  LT.l.)  GO  TO  200 
ArN=ATA’l<  <C2(2)-  .aUH/ICUD-CKI))  ) 

SO  ASQRU=f  (C?(<>  *<■’’*  j;/2.  <|)**2  '/  ((CL{2)~C:C^))/2,0)^W2 

IP  (ASQRL.LL.O)  5y  TO  HP 
SNATn-SIH(ATn) 

CSATNsCOS’.AFIv) 


AVGX=lC2(l)+Cl(l>  )/2.-> 

AVGY=(C2(2)+C1 (2) )/2«0 

£LPS=(  ( (XP-AVGX)  *CSATN<  1  f*'  <-  CY  *SNATN) **2)/ASQRU  + 

*  V*  ( (  ( YP-AVGY )  *CSA  Ti,i+  < XP-«  /..-X )  *SNA7N  J  **2 >  / ASQRD 

XF(ELPS.L£.1.0)PROXMY=,TRUn.  1SP0INT  INSIDE  ELLIPSE 

KEToR;; 

C 

C  LINE.  IS  2tR0  LENGTH 

C 

100  IF (Abb (Cl (1 j-XP) .LE.EPLISN)PROXI’Y=,TRUE. 

RETURN 

C 

200  A TN=6. 20/4,0 

GO  TO  50 

ENu 

C  «■**♦**♦$**  ***********  **♦**>«*  ****  *************  ******************************* 
C«****  DETERMINES  WHETHER  ATTRIBUTE  VALUES  ARE  TO  BE  ENTERED  ** 

C*****  DETERMINES  WHICH  »•  rj'ID'JTt  CATERGORY  WAS  SELECTED  BY  STYLUS** 

c**«*»  typin  captures  iijpu;  ano  stokes  it  in  location  or  array** 

C******  THESE  VALUES  ARE  PASSED  to  * ATTRID*  THRU  COMMON  »EDSAT3» 

SUBROUTINE  TI,0UT($,$) 

IMPLICIT  iNTtfatR (U-Z) 

include  ospkms.ust 

INCLUDE  EUSPRM)  LIST 
INTEGER  AX.AY.AZ 
INTEGER  ATT 
REAL  A 

COMMON/EOsLBT/LFLAG 
COMMon/EDSNME/TYPE ( 50 . B) ,MAPtS0> .PICK 

COMMON/EDSATB/V.U.M  . 1) .T ( 10 ) »D l 10) . H.C ( 10) t A. ICHARr ATT 
COMMON/EDSSYM/SYMM  C  SYMBOL ( NUMS YM j  5 ) » TEMP  < N'JMSYM » d )  .NEW* »M£WY» 

C  SYMNAM.WALLST.wTPl 

INTEGER  DFV(UFVL) .DFVP.l 'VF 
INTEGER  OFB(DFbL.WPN) 

COMMON  /DF/OFV.DFB.DFVP.  ' 

NAMELIST/ANSaER/YES.NO 
define  CUD  S  cid 

DEFINE  Cc'CD  =  FLO { ABSIMOD 1 1"1  *6) ) *6.6. Cl  I I“l/6+l ) ) 

DEFINE  Did)  =  u(I) 

DEFINE  02(D  =  FLO<ABS(MODU-l<6);*6.6.Dia-l/6+l)> 

DEFINE  MUI)  =  M(I) 

DEFINE  M2(l)  =  FLDl ABSlMOt ( 1-1*6) )*6*6rM1 d -1/6+1) ) 

UEFINE  TTU)  i  HI! 

uEFINE  TTT  •  =  FLD(AbS(MO!;(I'l»b)  '*6.6.  T  T  U-I /6+1  >  > 

CA--  SKTL 
rLAUID. AN^wtrt) 

CALL  JUMPS d ANSWER ’ t  '  6l>0.  SlOSO ) 

CALL  TYpOJ| i 'DO  vo  '  «I5rf  TO  NAME  A  NEW  INST 4 NCE?ha«> 

CALL  f  .-POU  i  ( »YEj  0:<  NOsia 
CAU.  LitRINT d.SlCIo > 


7/sr 


1000 


1010 

1500 


1050 

1060 

1450 


1455 

1460 

1470 


1475 

1490 

1460 

100 

200 

300 


310 

400 
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CAUL  IDLE 
CALL  SWAP 
00  TO  1000 
CALL  TTY 
00  TO  1000 
NUM  =  MAP (PICK) 

TYPE(nUM*2)  =  TYPE (NUM*2)  -*•  5 

CALL  ATTNAM 

CALL  aTTRIB 

CALL  SENDF 

CALL  TABINT (1 >31460) 

CALL  CHRINT (1* S1455) 

CONTINUE 

CALL  TYPOUK 'SELECT  ATTRIBUTE  CATEGORYha') 
CALL  IDLE 
CALL  SWAP 
00  TO  1450 
CALL  TTY 
00  TO  1450 

CALL  -,ETTAB(AX,AY*AZ) 

IFIAE)  1450*1450 * 1470 

CALL  LITEBT (25*130 *200, 230*AX* AT) 

IF (LFLA6  .£Q.  1}  GO  TO  1490 
ATT  =  1 

00  1475  LB  =  616*392*-32 
LY  ;  LB  -  i6 
UPY  s  LB  ♦  16 

CALL  LITEBT (40*LY*450*UPY* AX*AY) 

IFILFj.AG  .EQ,  l)  00  TO  1480 

ATT  s  ATT  +  1 

CONTINUE 

GO  TO  1498 

CALL  TYPATT 

RETURN  1 

CALL  TYPOUTt 'Please  type  INna') 

GO  TO (100 *200 *300 *400*500 *600 *700 *800) * ATT 
CALL  TYPIN( ’ (I ) • * V) 

GO  TO  2000 

CALL  TYP1N('(I)«,U) 

GO  TO  2000 
CALL  TYPIN(M) 

ICHAR  =  NTYPIN(IOUM) 

DO  310  J  =  ICHAR* 30 
M2(J)  =  »  » 

CONTINUE 
GO  TO  2000 
CALL  TYPINiT) 

ICHAR  =  NTYFIP(IUUM) 

00  410  U  s  ICHAR* 30 
TTT(J)  s  »  • 
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<♦10  CONTINUE 

60  TO  2000 

500  CALL  TTPIN(D) 

ICHAR  =  NTYPINUDUM) 

DO  51o  U  =  ICHAR, 30 
D2(J)  =  »  • 

510  CONTINUE 

60  TO  2000 

600  CALL  TTPINt  * ( I) ’ r H) 

60  TO  2000 

700  CALL  TYPXN(C) 

ICHAR  s  NTYPIUUOUH) 

DO  710  J  =  ICHAR, 30 
C2(J)  =  *  » 

710  CONTINUE 

60  TO  2000 

eoo  CALL  TYPIN(t(RP,A) 

A  =  A/100.0 

3000  CALL  SETDF (DFV.UFVP) 

CALL  ATTRIB 
CALL  SENOF 
60  TO  1060 

149B  CALL  StTOF(DFfl) 

CALL  WRITAT (225,30, *N0  ATTRIBUTE  WAS  FOUND**) 

CAIL  WRITAT (225.5, ’PLEASE  TRY  AGAINA*) 

RE. URN  2 
END 

C***************************************************************** 
C ************************** *♦************************************, 


OATA  CARDS  IGNORED  -  FIRSf  IS  LISTED  BELOW 


